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