Macro MS Word 2010 pour renuméroter les pages dans le pied de page de toutes les sections.

Mon problème, c’est que j’ai également une page de séparation à laquelle j’ai fourni à l’origine -1 dans le champ de page pour obtenir le nombre approprié. Pourriez-vous s'il vous plaît indiquer comment je peux manipuler la macro pour en tenir compte ...

Voici la 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