Microsoft Office Forums - View Single Post - [Solved] Appending the filename with the current date

sheeand · 05-12-2012, 04:26 PM

I need a macro for a word document (or template) that, upon Saving the document will append the filename with the current date (in yyy-mm-dd format). Subsequent saves of the new document (with the appended filename) will retain that filename.

Here's what I've tried so far. I still need to tie it into the Ctrl-S button, and make RetainFileName() work.

Code:

Option Explicit
' Filename is Journal.docm whose fileNameLength=12
Public Sub Macro1()
Dim fileNameLength As Integer
fileNameLength = Len(ActiveDocument.Name)
If fileNameLength > 12 Then
  RetainFileName
Else
  NewFileName
End If
End Sub
Private Sub RetainFileName()
ActiveDocument.Save
End Sub
Private Sub NewFileName()
Dim dt As Date
Dim dd As Integer
Dim mm As Integer
Dim yyyy As Integer
Dim strDt As String
dt = Now
dd = Day(dt)
mm = Month(dt)
yyyy = Year(dt)
strDt = Str(yyyy) + "-" + Trim(Str(mm)) + "-" + Trim(Str(dd))
ActiveDocument.SaveAs2 FileName:="Journal " + strDt + ".docm", _
  FileFormat:= _
  wdFormatDocumentDefault, LockComments:=False, Password:="", _
  AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
  EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
  :=False, SaveAsAOCELetter:=False, CompatibilityMode:=14
End Sub