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