Word 2010 – перерыв страницы перед H2, кроме после H1

У меня есть текстовый документ с более или менее следующей структурой:

Title Heading 1 Heading 2 Text Heading 2 Text Heading 1 Heading 2 Text ... 

Я бы хотел разрывы страниц перед всеми заголовками H2, за исключением тех, которые были непосредственно после заголовков H1, когда я предпочел бы, чтобы два заголовка были на одной странице.

  • Как восстановить документ Microsoft Word
  • Шрифт не отображается в Word, Windows говорит, что он установлен
  • Как повторно использовать все стили в Word?
  • Обновление текстового документа MS из двух других документов
  • Клавиша Tab в Microsoft Word не увеличивает отступ в списках маркеров
  • Можете ли вы сделать MS Word черным фоном с белым текстом, но напечатать инверсный?
  • Я знаю, что я могу автоматически установить «разрыв страницы раньше» в стиле для заголовка 2, но есть ли способ, которым я могу установить параметр «кроме сразу после заголовка 1» без необходимости вручную добавлять все разрывы страниц?

    Другими словами, я хотел бы перерывы следующим образом:

     Title -- Page Break -- Heading 1 Heading 2 Text -- Page Break -- Heading 2 Text -- Page Break -- Heading 1 Heading 2 Text -- Page Break -- Heading 2 Text ... 

  • Как остановить MS Word от пропусков страниц?
  • Выберите другой шрифт в Microsoft Word
  • Как легко выделить синтаксис PHP-кода в Word?
  • Как создать отформатированные всплывающие подсказки в Microsoft Word
  • Укажите URL всех гиперссылок в тексте документа.
  • Как добавить изображение в виде полностраничного фона в Word 2010
  • One Solution collect form web for “Word 2010 – перерыв страницы перед H2, кроме после H1”

    Создание нового стиля выполнит то, что вы хотите. Попробуйте эту процедуру:

    1. Используйте диалоговое окно « Пункты», чтобы Word вставлял разрыв страницы перед всем заголовком 2 .
    2. Создайте новый стиль «Заголовок 2 Прайм» , это точно так же, как « Заголовок 2» , но снимите флажок «Перерыв страницы перед» . Убедитесь, что вы произносите «Заголовок 2 Прайм» точно так, как написано здесь.
    3. Нажмите Alt + F11, чтобы открыть VBA development environment , затем нажмите «Вставить> Модуль», чтобы открыть новое окно для ввода программ.
    4. Вставьте в окно следующие инструкции. Эти заявления заменяют все пункты заголовка 2, которые появляются после пунктов заголовка 1 , с заголовком « Заголовок 2» .

    Код для вставки:

     ''''''''''''''''''''''''''''''''''''''''''' Sub replace_Heading2_with_Heading2Prime() Dim i As Integer Dim s As String Dim h As String ''''''''''''''''''''''''''''''''''''' 'loop through all pgp and report heading 2 For i = 1 To ActiveDocument.Paragraphs.Count s = ActiveDocument.Paragraphs(i).Style If (s = "Heading 2") Then h = findPriorHeading(i - 1) If (h = "Heading 1") Then ActiveDocument.Paragraphs(i).Style = "Heading 2 Prime" End If End If Next i Exit Sub End Sub Function findPriorHeading(iPgp As Integer) As Variant Dim i As Integer Dim blnFoundHeading As Boolean 'walk backwards until any heading is found With ActiveDocument i = iPgp blnFoundHeading = False Do Until (i < 1 Or blnFoundHeading) s = .Paragraphs(i).Style If (InStr(s, "Heading") > 0) Then blnFoundHeading = True findPriorHeading = s Exit Function End If i = i - 1 Loop End With findPriorHeading = "" End Function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 

    Нажмите Alt + F11, чтобы вернуться в Word , затем нажмите Alt + F8, чтобы открыть диалоговое окно «Макросы». Дважды щелкните элемент «replace_Heading2_with_Heading2Prime», чтобы запустить макрос.

    Надеюсь, это поможет.

    Давайте будем гением компьютера.