Mega Code Archive

 

Categories / VisualBasic Script / Word

 

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