Макрос MS Word 2010 для перенумерации страниц в нижнем колонтитуле всех разделов.

Question

У меня проблемы с тем, что у меня также есть разделительная страница, которую я изначально предоставил -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