Фахруддин создал четыре документа, используя встроенные стили заголовков Word, от заголовка 1 до заголовка 3. Теперь ему нужно объединить четыре файла в один довольно длинный документ, чтобы каждый файл представлял собой главу. Это требует наличия заголовка более высокого уровня в начале каждого файла. Фахруддин задается вопросом, как он может быстро изменить уровни текущих заголовков (переместить их все на один уровень ниже, от заголовка 2 до заголовка 4), чтобы он мог добавлять новые заголовки заголовка 1 в начало каждого файла при объединении.

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

Первый способ отлично подходит, если вам нужно выполнять такую ​​корректировку курса только время от времени. Он использует то, что многие считают слишком упускаемым из виду инструментом Word — Outline view. Выполните следующие действия:

  1. Откройте вкладку «Просмотр» на ленте.

  2. В самом левом углу ленты щелкните Контур. Ваш документ должен выглядеть иначе, и вы должны увидеть вкладку Outlining на ленте.

  3. На вкладке «Структура» ленты используйте раскрывающийся список «Показать уровень», чтобы выбрать уровень заголовка, который на единицу больше, чем количество уровней заголовка, которое вы используете в документе. (Таким образом, в случае Фахруддина, где он использует 3 уровня заголовков, он использовал бы раскрывающийся список «Показать уровень», чтобы выбрать «Уровень 4»). На этом этапе документ должен отображать только заголовки. (См. Рис. 1.)

  4. Нажмите Ctrl + A. Следует выбрать весь документ.

  5. Нажмите клавишу TAB. (Вы также можете использовать инструмент «Понижение» слева от вкладки «Структура» на ленте. Он выглядит как стрелка, указывающая вправо.) Все заголовки понижаются на один уровень, что в точности соответствует желанию Фахруддина.

  6. Щелкните инструмент «Закрыть вид структуры» в правой части вкладки «Структура» на ленте или щелкните инструмент «Макет печати» в строке состояния.

В любом случае вы вернетесь к своему документу, где сможете продолжить редактирование.

Все просто, правда? Понижение статуса заголовков влияет только на те заголовки, которые выбраны, но, поскольку мы использовали Ctrl + A (шаг 4), были затронуты все заголовки. Это означает, что если вы хотите воздействовать только на подмножество заголовков, вы должны выбрать эти заголовки на шаге 4.

Второй подход, который я хотел выделить, — это использование макроса. Зачем вам использовать макрос, когда использовать Outline View так просто? Я думаю, что это очень удобно, когда вам нужно много выполнять задачу или когда вам нужно понизить заголовки более одного раза. Вот макрос, который я придумал:

Sub DemoteAllHeadings()

Dim p As Paragraph     Dim sParStyle As String     Dim iHeadLevel As Integer

For Each p In ActiveDocument.Paragraphs         sParStyle = p.Style         If Left(sParStyle, 7) = "Heading" Then             iHeadLevel = Val(Mid(sParStyle,8)) + 1             If iHeadLevel > 9 Then iHeadLevel = 9             p.Style = "Heading " & iHeadLevel         End If     Next p End Sub

Макрос выполняется очень быстро, независимо от длины вашего документа.

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

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (13732) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365.