Selection.PageSetup (Word)

Retorna um objeto PageSetup que está associado à seleção especificada.

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