Selection.FootnoteOptions (Word)

Retorna o objeto FootnoteOptions que representa as notas de rodapé em uma seleção.

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