With ActiveDocument.Sections(1).Headers(wpsHeaderFooterPrimary) .PageNumbers.Add _ PageNumberAlignment:=wpsAlignPageNumberCenter, _ FirstPage:=FalseEnd With