Range.FootnoteOptions (Word)
Devuelve un objeto FootnoteOptions que representa las notas al pie en una selección o un intervalo.
Sub SetFootnoteOptionsRange()
ActiveDocument.Sections(2).Range.FootnoteOptions _
.NumberingRule = wdRestartSection
End Sub