Footnotes.NumberingRule (Word)

Retorna ou define a maneira como as notas de rodapé ou as notas de fim são numeradas após quebras de página ou quebras de seção. Leitura/gravação WdNumberingRule. Os valores de retorno possíveis são wdRestartContinuous - Os números são atribuídos continuamente, wdRestartPage - Os números são redefinidos para cada página, wdRestartSection - Os números são redefinidos para cada seção.

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