Macro do MS Word 2010 para renumerar páginas dentro do rodapé de todas as seções.

Question

Meus problemas é que eu também tenho uma página divisória que originalmente forneci -1 no campo da página para obter a contagem apropriada. Você poderia, por favor, informar como eu posso manipular a macro para levar isso de volta em consideração ...

Aqui está a macro

Sub Main()
    On Error Resume Next
    For i = 0 To ActiveDocument.Sections.Count
        ActiveDocument.Sections(i).Footers(wdHeaderFooterEvenPages).PageNumbers.RestartNumberingAtSection = False
        ActiveDocument.Sections(i).Footers(wdHeaderFooterFirstPage).PageNumbers.RestartNumberingAtSection = False
        ActiveDocument.Sections(i).Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = False
    Next i
End Sub