automatically add date to filename when saving a word document?

Hi there,

I would very much appreciate if you could help me with this!

I want to be able to manage versions of a word document by making an automatic suffix to the filename when saving the document.

E.g. "Master's thesis_[yyyymmdd].docx" would do great.

I did some searching and it seems that there are several macros available to do the job. However, as this is really a quite simple task, and I feel that macro-documents are quite inconvenient when several people are working with the same document and you have to email it around and so on, I'm wondering is there really no way to do this without macros?

Thanks for help, any tips are well appreciated!

There is no way to do this without macros.

Take a look at Save Versions Add-In for one of the better macro solutions.

Volunteering to "pay forward" the help I've received in the Microsoft user community.


Charles Kenyon
Sun Prairie, Wisconsin
wordfaq[at]addbalance[dot]com

Legal site: https://addbalance.com

2 people found this reply helpful

·

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

You specified without macros. I'm tossing one out, anyway.


The following macros, if placed in your document will append a date to whatever is in the Title Property. Note, no provision is made for more than one version in a day.

These should run automatically whenever the document is saved.


To see what to do with a macro, see Graham Mayor's Installing Macros.


Sub FileSave()
    ' Run as substitute for FileSave to add date to document title

    '    for filename

    ' Put in a document or document template

    '    but probably not in a global
    '
    On Error Resume Next
    '
    Dim strName As String, dlgSave As Dialog
    Set dlgSave = Dialogs(wdDialogFileSaveAs)
    strName = ActiveDocument.BuiltInDocumentProperties("Title").Value

    '    get name in title
    strName = strName & " " & Format((Year(Now() + 1) Mod 100), _

        "20##") & "-" & _
        Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
        Format((Day(Now()) Mod 100), "0#")
    With dlgSave
        .Name = strName
        .Show
        
    End With
End Sub

Sub FileSaveAs()
    Call FileSave
End Sub



Volunteering to "pay forward" the help I've received in the Microsoft user community.


Charles Kenyon
Sun Prairie, Wisconsin
wordfaq[at]addbalance[dot]com

Legal site: https://addbalance.com

13 people found this reply helpful

·

Was this reply helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this reply?

Thanks for your feedback.

 
 

Question Info


Last updated April 24, 2024 Views 11,370 Applies to: