Footnotes.NumberingRule (Word)

Devuelve o establece el sistema de numeración de las notas al pie o al final después de los saltos de página o de sección. Posibles valores de retorno son wdRestartContinuous - La numeración se realiza de manera continua, wdRestartPage - La numeración se reinicia en cada página, wdRestartSection - La numeración se reinicia en cada sección.

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