Selection.PageSetup (Word)

Returns a PageSetup object that's associated with the specified selection.

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