如何在儲存 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. 接著，您只需輸入所需的檔名即可，詳情請參見截圖：
Kutools for Word 不只是一套工具，更是專為提升工作效率打造的智慧解決方案。結合 AI 驅動功能與最實用的核心特性，Kutools 讓您事半功倍：
🤖KUTOOLS AI 功能：AI 助手/即時助手/超級潤色（保留格式）/超級翻譯（保留格式）/AI 遮擋/AI 校正……
📘 文件掌控力：分割頁面/文檔合併/以多種格式匯出選取內容（PDF/TXT/DOC/HTML……）/批次轉換為 PDF……
✏ 內容編輯：批量查找與替換多個檔案/調整所有圖片大小/翻轉表格列與欄/表格轉文本……
🧹 輕鬆清理：一鍵清除多餘空格、分節符、文字框與超連結！想要更多清除工具？立即前往移除群組……
➕ 創意插入：插入千位分隔符/複選框/選項按鈕/二維碼/條碼/多張圖片/ 更多功能請至插入群組……
🔍 精準選取：精確定位特定頁面/表格/圖形/標題段落/ 透過更多選取功能提升導覽效率……
⭐ 星級增強功能：快速跳轉至任意位置/自動插入重複文字/在文件 Windows 之間切換/11 轉換工具……
🌍 支援 40+ 種語言：使用您熟悉的慣用語言暢享 Kutools！支援英文、西班牙文、德文、法文、中文等 40 多種語言，操作更順手、體驗更流暢！
包含 Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint
📦 一套整合 5 項工具 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 保存時間，立即提升生產力