Footnotes.Location (Word)

Returns or sets the position of all footnotes. Possible return values are wdBeneathText - Beneath current text, wdBottomOfPage - At bottom of current page.

ActiveDocument.Footnotes.Location = wdBottomOfPage