Skip to main content

Kutools for Office — 一套工具，五種功能。完成更多工作。

如何在文件名中保存带有当前日期的Word文檔？

Author Xiaoyang Last modified

如果在保存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鍵運行此代碼，隨後會顯示一個“另存為”窗口，並且當前日期會自動填入文件名文本框中，見截圖：

Save As window with the current date in the File name text box

4. 然後，您只需根據需要輸入自己的文件名即可，見截圖：

Edit the file name as needed

使用 AI 增強的 Kutools for Word 在更短時間內完成更多工作

Kutools for Word 不僅是一套工具，更是一個旨在提升您生產力的智慧解決方案。憑藉 AI 驅動的功能和最核心的特性，Kutools 幫助您在更短的時間內完成更多任務：

  • 即時總結、潤色、撰寫和翻譯內容。
  • 在書寫過程中，透過語法、標點符號和樣式建議進行即時校正。
  • 在保持佈局、樣式和結構不變的情況下重新表述和翻譯內容。
  • 輕鬆將您的內容翻譯成超過 40 種語言，擴大全球影響範圍。
  • 根據當前文檔內容獲得即時幫助和智能洞察。
  • 詢問如何完成某項任務（例如清除分節符），AI 將引導您或為您完成操作。
  • 在幾秒內編輯敏感或機密信息，確保完全隱私。
  • 所有工具都能在 Word 內無縫運作，隨時可用。
  • 輕鬆創建、完善、翻譯、總結和保護文檔。
  • 在書寫過程中即時改善語法、清晰度和語氣。
  • 重新表述和翻譯內容而不改變佈局或格式。
  • 詢問如何完成某項任務（例如清除分節符），AI 將引導您或為您完成操作。
  • 所有工具都能在 Word 內無縫運作，隨時可用。
了解更多關於 Kutools for Word 的資訊 立即下載
Kutools for Word features

最佳辦公效率工具

Kutools for Word -透過超過 100 項卓越功能，提升您的 Word 使用體驗！

🤖 Kutools AI Features：AI Assistant／Real-Time Assistant／Super Polish（保留格式）／Super Translate（保留格式）／AI Redaction／AI Proofread...

📘 文件掌握：分割頁面／文檔合併／區域導出成各種格式（PDF/TXT/DOC/HTML...）／批量轉換為 PDF...

✏ 正文編輯：批量查找與替換多個文件／批量調整所有圖片大小／翻轉表格的行與列／表格轉文本...

🧹 輕鬆清理：快速清除多餘空格／分節符／文字框／超連結／更多清除工具請前往刪除工具組...

➕ 創意插入：插入千位分隔符／複選框／選項按鈕／二維碼／條形碼／批量插入圖片／還有更多精彩功能在插入工具組...

🔍 精確選擇：精確定位特定頁面／表格／形狀／標題段落／使用更多 選擇 功能提升導航效率...

⭐ 亮點增強：導航至任何區域／自動插入重複文字／切換文檔窗口／11 項轉換工具...

🌍 支援40+種語言：可用 Kutools於您偏好語言環境——支援英語、西班牙語、德語、法語、中文以及超過40種語言！

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想立即體驗這些功能嗎？立即下載 Kutools for Word！🚀
 

✨ Kutools for Office——一次安裝，五大強力工具！

包含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一次全擁有 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 即刻省時提高工作效率

最佳辦公效率工具

Kutools for Word - 100+ 款 Word 工具

免費下載 立即購買 深入瞭解 Kutools