如何用文件名中的當前日期保存Word文檔？

如果在保存Word文檔時需要自動在文件名中添加當前日期，那麼如何在Word文件中處理此任務？

使用VBA代碼將當前日期的Word文檔保存在文件名中

---

使用VBA代碼將當前日期的Word文檔保存在文件名中

若要在保存Word文檔時自動將當前日期添加到文件名中，請執行以下步驟：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

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。 然後，您只需要根據需要鍵入自己的文件名，請參見屏幕截圖：