Word VisualBasic Script

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