모든 섹션의 바닥 글 내에서 페이지 번호를 다시 매기는 MS Word 2010 매크로

내 문제는 적절한 수를 얻기 위해 원래 페이지 필드에 -1을 제공 한 분배기 페이지가 있다는 것입니다. 매크로를 조작하여이를 다시 고려할 수있는 방법을 알려주시겠습니까?

여기 매크로가 있습니다

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