Selection.PageSetup (Word)

Renvoie un objet PageSetup associé à la sélection spécifiée.

With Selection.PageSetup 
 .FooterDistance = 18 
 .HeaderDistance = 18 
End With