Removing Page Numbers from One or More Sections of a Document
Sub RemovePageNumbersFromCurrentSection() Dim ThisHeader As HeaderFooter Dim ThisPageNumber As PageNumber
With Selection.Sections(1)
For Each ThisHeader In .Headers
For Each ThisPageNumber In ThisHeader.PageNumbers
ThisPageNumber.Delete
Next ThisPageNumber
Next ThisHeader End With End Sub