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

Повторяющиеся, отнимающие много времени задачи всегда являются главным кандидатом на использование макросов; это не исключение. Следующий макрос просканирует каждый раздел документа, удаляя все заданные верхние и нижние колонтитулы.

Sub RemoveHeadAndFoot()

Dim oSec As Section     Dim oHead As HeaderFooter     Dim oFoot As HeaderFooter

For Each oSec In ActiveDocument.Sections         For Each oHead In oSec.Headers             If oHead.Exists Then oHead.Range.Delete         Next oHead

For Each oFoot In oSec.Footers             If oFoot.Exists Then oFoot.Range.Delete         Next oFoot     Next oSec End Sub

Этот макрос очень мощный — он не спрашивает, хотите ли вы продолжить, и не учитывает, что может быть включено в верхние и нижние колонтитулы. Он просто удаляет их все, оставляя ваш документ без документа. Если вы регулярно обрабатываете довольно много документов, вы можете легко назначить макрос кнопке панели инструментов, пункту меню или сочетанию клавиш.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (1777) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Deleting_All_Headers_and_Footers [Удаление всех верхних и нижних колонтитулов].