Quick question about VB Word macros

[PJYelton]

Anyone familiar with using VB for Word macros? I'm looking for a quick down and dirty macro that does the following steps in order when run:

-Saves the file
-Deletes current footer
-Makes a new footer that displays the current file name, right adjusted
-Resaves the file

[Fordy]

Sub PJYelton()
    Dim FileName As String
    With ActiveDocument
        .Save
        FileName = .Name
        With .Sections(1).Footers(wdHeaderFooterPrimary).Range
            .Text = FileName
            .ParagraphFormat.Alignment = wdAlignParagraphRight
        End With
        .Save
    End With
End Sub

Moved to tech board

[PJYelton]

Thanks, that works perfectly! Sorry about the wrong forum, I debated which one it was best to put it in.

[PJYelton]

Sorry to rehash an old thread but a small problem has come up with this macro. If the document has no name then it uses SaveAs which is great, but if the user clicks cancel then theres a runtime error. What is the easiest way around this?

[Fordy]

Sorry to rehash an old thread but a small problem has come up with this macro. If the document has no name then it uses SaveAs which is great, but if the user clicks cancel then theres a runtime error. What is the easiest way around this?

Sub PJYelton()
On Error Resume Next
    Dim FileName As String
    With ActiveDocument
        .Save
        FileName = .Name
        With .Sections(1).Footers(wdHeaderFooterPrimary).Range
            .Text = FileName
            .ParagraphFormat.Alignment = wdAlignParagraphRight
        End With
        .Save
    End With
End Sub

[PJYelton]

Thanks!

[sand_man]

Just a question, why do you need to save before and after?