Save Word doc with current date

[Lake]

I have a Word checklist template that I open every day,
make my checklist changes and save it as a doc ... I would
like a macro that will prompt me to save he document with
the date eg checklist_2004-06-23.doc

Can anyone assist?
Thanks a million

 

[Joost Verdaasdonk]

Hai,

Something like this:

In a Module in the template:

Option Explicit

Const strFile As String = "C:\Test\"

Sub SaveDate()
Dim strDate As Date

strDate = InputBox("Please Enter date", "Save date with
doc", Format(Now(), "dd-mm-yyyy"))
ActiveDocument.SaveAs FileName:=strFile & "checklist_" &
Format(strDate, "dd-mm-yyyy")
End Sub

Enjoy!