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

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

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

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

Я знаю, что я могу автоматически установить «разрыв страницы раньше» в стиле для заголовка 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 ... 

  • Что это за «изменение отображения» математических уравнений и почему он меняет стиль уравнения в Word 2010?
  • Шаблон Word 2010 с автоматически обновляемыми полями
  • Word 2010: создание стиля без цвета шрифта
  • Документ Word имеет очень странное «скрытое» формирование после преобразования из PDF в .docx
  • Как иметь два заголовка на одном уровне в многоуровневом списке?
  • Как вы получаете Word 2010 для проверки орфографии внутри таблиц?
  • Как установить стиль пули по умолчанию в Microsoft 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», чтобы запустить макрос.

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

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