Range.FootnoteOptions (Word)

Renvoie un objet FootnoteOptions qui représente les notes de bas de page dans une sélection ou une plage.

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