Range.FootnoteOptions (Word)

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

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