4

У меня есть документ с несколькими разрывами разделов, и я хочу добавить номер страницы к каждой странице в разделе нижнего колонтитула.

Когда я использую Insert - Footer, он начинается с 1 для каждого раздела.

Есть сотни разделов, и я не хочу нажимать кнопку «То же, что и предыдущий» для каждого раздела.

Как вставить непрерывные номера страниц в Word 2007?

1 ответ1

5

Добавьте следующий макрос в ваш документ и запустите его один раз:

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

Вы можете добавить этот макрос, нажав ALT-F11. Это откроет окно VBA. Щелкните правой кнопкой мыши "ThisDocument" и выберите «Вставить / Модуль». Скопируйте и вставьте код сверху, затем нажмите F5. Это заставит каждый раздел к непрерывной нумерации страниц.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .