How to save Word document with current date in filename?
Author: Xiaoyang Last Modified: 2024-08-26
If you need to add the current date in filename automatically when saving a Word document, how could you deal with this task in Word file?
Save a Word document with current date in filename with VBA code
Save a Word document with current date in filename with VBA code
To automatically add the current date into the filename when saving the Word document, please do with the following steps:
1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.
2. And then, click Insert > Module, copy and paste below code into the opened blank module:
VBA code: Save a Word document with current date in filename
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. After pasting the code into the module, press F5 key to run this code, and a Save As window is displayed with the current date automatically into the File name text box, see screenshot:
4. And then, you just need to type your own file name as you need, see screenshot:
Do More in Less Time with AI-Enhanced Kutools for Word
Kutools for Word isn't just a set of tools - it's a smart solution designed to boost your productivity. With AI-driven capabilities and the most essential features, Kutools helps you accomplish more in less time:
- Summarize, rewrite, compose, and translate content instantly.
- Proofread text in real-time with grammar, punctuation, and style suggestions as you write.
- Rephrase and translate content while keeping layout, style, and structure untouched.
- Translate your content into over 40 languages with ease, expanding your reach globally.
- Receive instant help and intelligent insights based on your current document content.
- Ask how to complete a task - like removing section breaks - and the AI will guide you or do it for you.
- Redact sensitive or confidential information in seconds to ensure complete privacy.
- All tools work seamlessly inside Word, always within reach.
- Create, refine, translate, summarize and secure documents effortlessly.
- Improve grammar, clarity, and tone as you write in real time.
- Rephrase and translate content with no layout or formatting changes.
- Ask how to complete a task - like removing section breaks - and the AI will guide you or do it for you.
- All tools work seamlessly inside Word, always within reach.
Learn more about Kutools for Word Download Now
Best Office Productivity Tools
Kutools for Word - 100+ Tools for Word
