Range.FootnoteOptions (Word)

Gibt das FootnoteOptions-Objekt zurück, das die Fußnoten in einer Auswahl oder einem Bereich darstellt.

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