如何用文件名中的当前日期保存Word文档？

如果在保存Word文档时需要自动在文件名中添加当前日期，那么如何在Word文件中处理此任务？

使用VBA代码将当前日期的Word文档保存在文件名中

---

使用VBA代码将当前日期的Word文档保存在文件名中

若要在保存Word文档时自动将当前日期添加到文件名中，请执行以下步骤：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 然后，单击 插页 > 模块，将以下代码复制并粘贴到打开的空白模块中：

VBA代码：将当前日期的Word文档保存在文件名中

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。 将代码粘贴到模块中后，按 F5 运行此代码的关键，以及 另存为 窗口会自动显示当前日期 文件名 文本框，请参见屏幕截图：

4。 然后，您只需要根据需要键入自己的文件名，请参见屏幕截图：