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