An Automatic File Name

Other issues of WordTips have described how to change the default file name suggested by Word for your documents. This tip describes a logical extension to such a concept, thereby allowing you to quickly name your document by changing its title before displaying the Save As dialog box.

This particular macro is well-suited for use with letters, although it could be easily modified for other types of documents. The macro is named FileSaveAs, so it replaces the built-in Save As command. The best place to save this macro is in the template you use for your letters:

Sub FileSaveAs()
    Dim MyDocTitle As String
    MyDocTitle = Format(Date, "yymmdd") + " letter"

    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^pDear "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute

    If Selection.Find.Found Then
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
        Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
        If Len(Selection.Text) > 1 Then
            MyDocTitle = MyDocTitle + " to " + Selection.Text
        End If
    End If

    With Dialogs(wdDialogFileSummaryInfo)
        .Title = MyDocTitle
        .Execute
    End With

    Dialogs(wdDialogFileSaveAs).Show
End Sub

Note that this macro only works properly when you are first saving a new document. If you use it with an existing document (one previously saved under a different name), the original name is still suggested as the default in the Save As dialog box, even though the document title is modified.

The macro can be assigned to a toolbar button or a menu option so you can save your documents and name them automatically.