¿Cómo guardar un documento de Word con la fecha actual en el nombre de archivo?

Si necesita agregar la fecha actual en el nombre del archivo automáticamente al guardar un documento de Word, ¿cómo podría manejar esta tarea en un archivo de Word?

Guarde un documento de Word con la fecha actual en el nombre de archivo con código VBA

---

Guarde un documento de Word con la fecha actual en el nombre de archivo con código VBA

Para agregar automáticamente la fecha actual en el nombre del archivo al guardar el documento de Word, siga los siguientes pasos:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:

Código de VBA: guarde un documento de Word con la fecha actual en el nombre de archivo

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. Después de pegar el código en el módulo, presione F5 clave para ejecutar este código, y una Guardar como La ventana se muestra con la fecha actual automáticamente en el Nombre de archivo cuadro de texto, ver captura de pantalla:

4. Y luego, solo necesita escribir su propio nombre de archivo como lo necesite, vea la captura de pantalla: