Footnotes.Location procedure builder

Footnotes.Location (Word)

Returns or sets the position of all footnotes.

wdBeneathText - Beneath current text, wdBottomOfPage - At bottom of current page.
ActiveDocument.Footnotes.Location = wdBottomOfPage