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