Автоматические пустые страницы в конце раздела (Microsoft Word)
Word позволяет добавлять в документ несколько типов разрывов разделов. Два типа разрыва раздела приводят к добавлению пустых страниц в документ, если это необходимо. Например, если вы используете разрыв раздела «Нечетная страница», а предыдущий раздел заканчивается нечетной страницей, Word автоматически вставляет пустую четную страницу, так что следующий раздел может начинаться на следующей нечетной странице.
Проблема в том, что Word вставляет абсолютно пустую страницу — он даже не печатает верхние или нижние колонтитулы на странице. Если вы предпочитаете верхние и нижние колонтитулы или другую информацию на странице (например, «Эта страница намеренно оставлена пустой»), то вы не можете полагаться только на разрывы разделов Word.
Один из подходов состоит в том, чтобы вручную просмотреть документ и, при необходимости, добавить свой собственный невидимый текст, который будет «печататься» на странице, которая в противном случае была бы пустой. Вы создаете невидимый текст, добавляя обычный текст и форматируя его как белый. Белый на белом при печати невидим.
Word, однако, не понимает этого и предоставляет верхние и нижние колонтитулы на «пустой» странице.
Интересный подход — создать собственный стандартный текст в конце раздела. Создайте запись стандартного блока, содержащую текст конца раздела, включая разрыв страницы в начале записи. Назовите запись как-нибудь вроде «ПУСТОЙ СТРАНИЦА». Затем в конце каждого раздела, непосредственно перед разрывом раздела, добавьте следующее составное поле:
{ if { =int( {page} / 2 ) * 2 } = { page } " " { autotext "BLANKPAGE" } }
Помните, что фигурные скобки, показанные в этом примере, должны быть фигурными скобками поля. Вы вводите скобки поля, нажимая Ctrl + F9 для каждого набора. Поле проверяет, четная ли текущая страница в этом случае. Если это так, то в поле автоматически вставляется строительный блок с использованием поля АВТОТЕКСТ.
При желании вы также можете создать макрос, который будет проходить по документу, просматривать каждый раздел, решать, сколько страниц в разделе, а затем, при необходимости, добавлять разрыв страницы в конце раздела. Следующий макрос выполняет именно эту задачу:
Sub CheckSecLen() Dim iSec As Integer Dim oRng As Range Dim iValue As Integer With ActiveDocument ' go through each section (except for the last one) For iSec = 1 To .Sections.Count - 1 ' create a range object at the start of the section Set oRng = .Sections(iSec).Range oRng.Collapse wdCollapseStart ' insert a sectionpages field .Fields.Add Range:=oRng, Type:=wdFieldSectionPages ' divide the sectionpages field by 2 ' if it gives a zero as the remainder, then ' you have an even number of pages in the section, ' which is what you want with an odd section page break If (.Sections(iSec).Range.Fields(1).Result Mod 2) <> 0 Then ' if you have an odd number of pages, then insert ' a page break before the section's section break Set oRng = .Sections(iSec).Range With oRng .Collapse Direction:=wdCollapseEnd .MoveEnd unit:=wdCharacter, Count:=-1 .InsertBreak Type:=wdPageBreak End With End If ' remove the sectionpages field that was added .Sections(iSec).Range.Fields(1).Delete Next iSec End With End Sub
_Примечание: _
Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.
link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера]
.
WordTips — ваш источник экономичного обучения работе с Microsoft Word.
(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (12565) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:
link: / word-Automatic_Blank_Pages_at_the_End_of_a_Section [Автоматические пустые страницы в конце раздела]
.