Finding Out if a Section of a Document Has Page Numbers
Sub find() If Selection.Sections(1).Headers(wdHeaderFooterEvenPages) _
.PageNumbers.Count = 0 Then Selection.Sections(1) _
.Headers(wdHeaderFooterEvenPages).PageNumbers.add _
PageNumberAlignment:=wdAlignPageNumberCenter End Sub