Selection.HeaderFooter (Word)

Retorna um objeto HeaderFooter para a seleção especificada. Somente leitura.

Ocorre um erro quando a seleção não está localizada dentro de um cabeçalho ou rodapé.

With ActiveDocument.ActiveWindow.View 
 .Type = wdPrintView 
 .SeekView = wdSeekCurrentPageFooter 
End With 
Selection.HeaderFooter.PageNumbers.Add _ 
 PageNumberAlignment:=wdAlignPageNumberCenter