Rename file with sistem date and DOCVARIABLE

[silvin]

Hi everyone,

I am trying to set a macro which renames my file . I want my document name to contain the time and a variable (or more) from my document, such as author, subject, etc.

So the name of my file should be like this : yyyy_mm_dd_hh_mm_ss DOCVARIABLE "Subjecto" DOCVARIABLE "Author"

Untill now I have this code:

Sub SaveWithDate()
If ActiveDocument.Name = ActiveDocument.FullName Then
If Not Application.Dialogs(wdDialogFileSaveAs).Show Then Exit Sub
End If
CurrentFormat = ActiveDocument.SaveFormat
CurrentPathAndName = ActiveDocument.FullName
CurrentPath = Replace(ActiveDocument.FullName, ActiveDocument.Name, "")
NewNameSamePath = CurrentPath & Format(Now, "yyyy_mm_dd_hh_mm_ss") & ""
ActiveDocument.SaveAs FileName:=NewNameSamePath, FileFormat:=CurrentFormat
Kill CurrentPathAndName
End Sub


How can I insert the DOCVARIABLE in the file name?

Thank you all in advance for your help.

[gmaxey]

Subject and Author are built-in document properties not document variables:

Sub SaveWithDate()
Dim CurrentFormat, CurrentPathAndName, CurrentPath, NewNameSamePath
 If ActiveDocument.Name = ActiveDocument.FullName Then
 If Not Application.Dialogs(wdDialogFileSaveAs).Show Then Exit Sub
 End If
 CurrentFormat = ActiveDocument.SaveFormat
 CurrentPathAndName = ActiveDocument.FullName
 CurrentPath = Replace(ActiveDocument.FullName, ActiveDocument.Name, "")
 ActiveDocument.BuiltInDocumentProperties("Author").Value = "silvin"
 NewNameSamePath = CurrentPath & Format(Now, "yyyy_mm_dd_hh_mm_ss") & " - " & ActiveDocument.BuiltInDocumentProperties("Author").Value
 ActiveDocument.SaveAs FileName:=NewNameSamePath, FileFormat:=CurrentFormat
 Kill CurrentPathAndName
 End Sub

[silvin]

Thank you gmaxey. My mistake. I'm -1 to VBA.

Thank you very much for your help!

[gmaxey]

My pleasure. Glad to help.