Selection.FootnoteOptions (Word)

Devuelve un objeto FootnoteOptions que representa las notas al pie de una selección.

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