Como salvar um documento do Word com a data atual no nome do arquivo?

Se você precisar adicionar a data atual no nome do arquivo automaticamente ao salvar um documento do Word, como você lidaria com essa tarefa no arquivo do Word?

Salve um documento do Word com a data atual no nome do arquivo com o código VBA

---

Salve um documento do Word com a data atual no nome do arquivo com o código VBA

Para adicionar automaticamente a data atual ao nome do arquivo ao salvar o documento do Word, execute as seguintes etapas:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. E então, clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto:

Código VBA: Salve um documento do Word com a data atual no nome do arquivo

Public Sub FileSave1()
    Dim xDlg As Dialog
    Dim xTitle As String
    On Error Resume Next
    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "-" & _
        Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
        Format((Day(Now()) Mod 100), "0#")
    Set xDlg = Dialogs(wdDialogFileSaveAs)
    xDlg.Name = xTitle
    xDlg.Show
End Sub

3. Depois de colar o código no módulo, pressione F5 chave para executar este código, e um Salvar como janela é exibida com a data atual automaticamente no Nome do arquivo caixa de texto, veja a captura de tela:

4. E então, você só precisa digitar seu próprio nome de arquivo conforme necessário, veja a captura de tela: