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.
