Mega Code Archive

 

Categories / VisualBasic Script / Word

 

Changing the Page Numbering for a Section

Sub active()     With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)         If .PageNumbers.StartingNumber = 0 Then             .PageNumbers.RestartNumberingAtSection = True             .PageNumbers.StartingNumber = 50         End If     End With End Sub