Selection.HeaderFooter (Word)

Renvoie un objet HeaderFooter pour la sélection spécifiée.

Une erreur se produit si la sélection ne se trouve pas dans un en-tête ou un pied de page.

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