Selection.FootnoteOptions (Word)

Returns FootnoteOptions object that represents the footnotes in a selection.

Sub SetFootnoteOptionsRange() 
 Selection.FootnoteOptions.NumberingRule = wdRestartSection 
End Sub