Quote:
Originally Posted by Italophile
It is possible that one of the sections is corrupt.
If that is not the case then you should be able to set the starting number by simply looping through the sections. For example:
Code:
Sub SetStartingPageNumber()
Dim secIndex As Long
For secIndex = 2 To ActiveDocument.Sections.count
ActiveDocument.Sections(secIndex).Headers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = False
Next secIndex
End Sub
|
Will that work is the sections are many per page? Due to the columns each visible page may span 2-4 sections. So counting the sections in sequence will result in much higher page numbers that actual pages.
Also maybe the sections are corrupt? Is there a way to verify that?