NumberingRule Property

Microsoft Word Visual Basic

WdNumberingRule can be one of these WdNumberingRule constants.
wdRestartContinuous
wdRestartPage Applies to the Footnotes object only.
wdRestartSection

expression.NumberingRule

expression    Required. An expression that returns one of the objects in the Applies To list.

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