Footnotes.NumberingRule (Word)

Gibt die Art der Fußnoten- oder Endnotennummerierung nach einem Seiten- oder Abschnittsumbruch zurück oder legt sie fest. Mögliche Rückgabewerte sind wdRestartContinuous - Nummern werden fortlaufend zugewiesen, wdRestartPage - Nummern werden für jede Seite zurückgesetzt, wdRestartSection - Nummern werden für jeden Abschnitt zurückgesetzt.

Set myRange = ActiveDocument.Sections(1).Range 
If myRange.Footnotes.NumberingRule = wdRestartSection Then 
 myRange.Footnotes.NumberingRule = wdRestartPage 
End If