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