[BrigadierBill]

I pasted the code into the macros but it says there is a syntax error in the
4th line.

Dim i As Long
With ActiveDocument
For i = 2 To .Sections.Count
..Sections(i).Footers(1).PageNumbers.RestartNumber ingAtSection =
False
Next i
..Sections(1).Footers(1).PageNumbers.StartingNumbe r = 1
End With

What needs to be changed?

bill