Блог

В принципе, я перехожу в «Макет» > «Настройка страницы»> «Поля» > «Пользовательские поля», затем выбираю «Ориентацию» как «Альбомную», затем «Применить к:» > «Эта точка вперед», это изменяет ориентацию страниц для остальной части документа с того места, где находится мигающий курсор, затем я повторяю процесс с курсором на следующей странице, но выбираю «Ориентацию» на «Книжную». Вот как я создаю определенную страницу в альбомной ориентации документа Word. Когда это происходит, эта альбомная страница разделяется как «Раздел 2», а страницы после этого «Раздел 3». Проблема связана с верхним и нижним колонтитулами, в каждом разделе верхний и нижний колонтитулы разные. Это особенно проблематично с номерами страниц, поскольку каждый новый раздел начинается как отдельный и говорит, что это первая страница в начале этого раздела.

Я попробовал «Верхний и нижний колонтитулы»> «Раздел навигации» > «Ссылка на предыдущий» для «Раздела 2» с «Раздела 1», это вообще не отобразило бы никакой информации из «Раздела 1» в «Раздел 2». По какой-то причине, когда я сделал то же самое для «Раздела 3» с «Разделом 2», «Раздел 3» отобразил бы информацию «Раздел 2», это не решает проблему нумерации страниц, хотя, потому что «Раздел 3» начинается со страницы 1. Поэтому мне странно, как функция «Ссылка на предыдущий» работала только в «Разделе 3», а не в «Разделе 2».

Если у кого-нибудь есть какой-либо способ исправить это, я был бы благодарен: D, я также буду благодарен за любые хитроумные способы обойти это, но я не буду отмечать это как ответ.

Я бы добавил это в качестве комментария, но я новичок, и мне не разрешено комментировать. Это было бы лучше обрабатывать на сайте Microsoft Answers, поскольку речь идет об общих функциях Word, а не о программировании.

Тем не менее, когда вы создали новый раздел, вероятно, перед тем, как вы изменили ориентацию, вы сказали Word перезапустить нумерацию на 1. Word воспринял это как способ начать новые разделы. Вы можете вручную перейти к каждому новому разделу и использовать диалоговое окно формат номера страницы, чтобы указать Word продолжить с предыдущего.

Звучит так, как будто у вас также может быть установлена «другая первая страница». Этот параметр сохраняется и в новых разделах. Настройки верхнего и нижнего колонтитулов с несколькими разделами и их взаимодействие усложняются. Это кратко изложено здесь: Обзор настроек верхнего и нижнего колонтитулов.

Вы можете загрузить надстройку с моего сайта, которая сделает это за вас. Надстройка с непрерывными номерами страниц. Для этого используется макрос.

 Sub ContinuousPageNumbersMacro()
'
' ContinuousPageNumbersMacro Macro
' This macro makes page numbering continuous througout document. This is for multisection documents where it may be hard to find page breaks and figure out page numbering changes.
'
' Jay Freedman
' http://answers.microsoft.com/en-us/office/forum/office_2007-word/page-numbers-are-all-fouled-up-in-my-large/d188687e-9663-43e0-a450-1dbadc47f09f
' Can be used as straight macro or attached to keyboard shortcut
' modified to preserve track changes status - idea from Graham Mayor 25 Oct 2017
'
    Dim secNum As Long
    Dim btnCancel ' give user chance to cancel
    Dim bTrackChanges As Boolean
    Dim strVersion As String
    strVersion = ThisDocument.CustomDocumentProperties("Version").Value
    btnCancel = MsgBox(prompt:="Do you want to reset all of the page numbers in this document to number continuously?", _
        Title:="Continuous Page Numbering Version " amp; strVersion amp; "  Are you sure?", _
        Buttons:=vbYesNo)
    If btnCancel = vbNo Then
        MsgBox prompt:="Reset of continuous page numbering cancelled by user!", Buttons:=vbExclamation, Title:="Page Number Reset Cancelled!"
        Exit Sub
    End If
'   Proceed with reset
    bTrackChanges = ActiveDocument.TrackRevisions 'Graham Mayor
    ActiveDocument.TrackRevisions = False ' Graham Mayor
    With ActiveDocument
        For secNum = 2 To .Sections.Count
            .Sections(secNum).Headers(wdHeaderFooterPrimary) _
                 .PageNumbers.RestartNumberingAtSection = False
        Next
    End With
    ActiveDocument.TrackRevisions = bTrackChanges 'Graham Mayor
    MsgBox prompt:="The Continuous Page Numbers macro has run.", Title:="Page number reset macro finished!"
End Sub