Range.FootnoteOptions (Word)

Returns FootnoteOptions object that represents the footnotes in a selection or range.

Sub SetFootnoteOptionsRange() 
 ActiveDocument.Sections(2).Range.FootnoteOptions _ 
 .NumberingRule = wdRestartSection 
End Sub