Footnotes.NumberingRule procedure builder

Footnotes.NumberingRule (Word)

Returns or sets the way footnotes or endnotes are numbered after page breaks or section breaks.

wdRestartContinuous - Numbers are assigned continuously, wdRestartPage - Numbers are reset for each page, wdRestartSection - Numbers are reset for each section.
Set myRange = ActiveDocument.Sections(1).Range 
If myRange.Footnotes.NumberingRule = wdRestartSection Then 
 myRange.Footnotes.NumberingRule = wdRestartPage 
End If