Hi-

I need some assistance. I have a 1 pg merge document - log in sheets- that contains a footer with the page number. There are 15 or so individual pages in the generated document that require sequential page numbers. A while ago I managed to grab some code from somewhere (sorry I don't remember where!) that generates the page numbers in the footer, but it starts at 1 and I need it to start at 0. Otherwise, the code works exactly as I need it to.

Can anyone tell me how/where to add the instruction to start numbering at 0? Here's the current code:

Sub ContinuePageNumbers()


Dim sec As Section




On Error GoTo Done
Application.ScreenUpdating = False


With ActiveDocument.ActiveWindow.View
.SeekView = wdSeekPrimaryFooter
End With


For Each sec In ActiveDocument.Sections
sec.Footers(wdHeaderFooterPrimary).Range.Select
Selection.HeaderFooter.PageNumbers.RestartNumberingAtSection = False
DoEvents
Next sec


With ActiveDocument.ActiveWindow.View
.SeekView = wdSeekMainDocument
End With
Selection.HomeKey


Done:
Application.ScreenUpdating = True
End Sub

Thanks in advance for any help!