Selection.HeaderFooter (Word)

Devuelve un objeto HeaderFooter para la selección especificada.

Si la selección no está incluida en un encabezado o pie de página, se produce un error.

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