У меня следующая проблема: для своей диссертации я использую Word 2016, и мне приходится вставлять много непрерывных разрывов разделов, которые мешают сноскам, вызывая неожиданные переходы на страницы. Я использовал исправление, предложенное MS (https://support.microsoft.com/en-nz/help/292074/section-break-causes-an-unexpected-page-break-in-word) но все равно не работает. Что делать?
решение1
Почему у вас так много разрывов разделов? Это очень необычно.
Рассмотрите возможность использованияПоле StyleRefесли вы пытаетесь изменить текст в верхних и нижних колонтитулах с помощью разрывов разделов.Раскрытие информации: Ссылка ведет на страницу моего веб-сайта.
Непрерывные разрывы разделов предназначены для смены столбцов в документе. Вот и все.
Другие применения требуют разрыва раздела, который добавляет страницу, например, «Следующая страница», «Нечетная страница» или «Четная страница». Вам следуетБольше никогдаменятьсяПоляв документе иникогдас непрерывным разрывом раздела. Хотя Word позволяет изменять поля внутри страницы, это очень плохая практика, которая значительно усложняет файлы документов без какой-либо причины. Вместо этого измените отступы абзацев. СмотритеПоля и отступы в Word.(также на моем сайте)
Информацию о непредвиденных интервалах на страницах см.Улучшение итогового результатаСюзанна Барнхилл, MVP.
Чтобы сделать нумерацию страниц непрерывной, вы можете использовать мойНадстройка непрерывной нумерации страницили этот макрос.
Sub ContinuousPageNumbers1()' 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
' modified to preserve track changes status - idea from Graham Mayor 25 Oct 2017
' if track changes is locked with password, you can comment out the three lines that have 'Graham Mayor as a tag'
Dim secNum As Long
Dim btnCancel ' give user chance to cancel
Dim bTrackChanges As Boolean
btnCancel = MsgBox(prompt:="Do you want to reset all of the page numbers in this document to number continuously?", _
Title:="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
End Sub
решение2
Попробуйте, пожалуйста, поместить непрерывный разрыв на разрыв абзаца, а затем сделать этот абзац скрытым.
Вы получите новый раздел без новой страницы.
Таким образом, вы можете размещать различные заголовки страниц, используя непрерывные разрывы, без необходимости каждый раз переходить на новую страницу.