Sub page() ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers_ .ShowFirstPageNumber = FalseEnd Sub