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

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

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

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

  • Microsoft Word: некоторые символы Unicode не отображаются в любом шрифте
  • Поиск слова в PDF-конвертер, который будет обрабатывать специальные шрифты
  • Установить язык для комментариев в Office 2013
  • Клавиши быстрого вызова не работают в MS-Word на Win8
  • Как сравнить многие значения с оператором OR в слоях mergefield?
  • Как избавиться от Clippy
  • Я знаю, что я могу автоматически установить «разрыв страницы раньше» в стиле для заголовка 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 ... 

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

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

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