NumberingRule Property Example
This example restarts endnote numbering after each section break in the active document.
ActiveDocument.Endnotes.NumberingRule = wdRestartSection
If the footnote numbering in section one is set to restart after each section break, this example sets the numbering to restart on each page.
Set myRange = ActiveDocument.Sections(1).Range
If myRange.Footnotes.NumberingRule = wdRestartSection Then
myRange.Footnotes.NumberingRule = wdRestartPage
End If