Footnotes.NumberingRule (Word)

Returns or sets the way footnotes or endnotes are numbered after page breaks or section breaks. Possible return values are 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