ukusprof
09-14-2021, 12:05 PM
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!
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!