Selection.PageSetup (Word)

Devuelve un objeto PageSetup que está asociado con la selección especificada.

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