Mega Code Archive

 

Categories / VisualBasic Script / Word

 

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