Нет оборванных заголовков слов между разрывами страниц?

Question

Есть ли у кого-нибудь хороший способ VBA (или, возможно, есть настройка MS Word, которую я не могу найти), чтобы убедиться, что заголовки Word не болтаются в конце страницы.

Например, предположим, что числа слева - это номера страниц.

1  This is the second to last line on the page.
1  HEADING 1
2  This text starts page two

Я хочу автоматически переместить заголовок 1 вниз так, чтобы:

1  This is the second to last line on the page.
1  
2  HEADING 1
2  This text starts page two

Мне знаком этот вопрос: Получение заголовков из документа Word

Спасибо!

Answer 1

Требуется «идти дальше» (вкладка «Форматирование абзаца»> вкладка «Разрывы строк и страниц»).

Возможно, также представляет интерес: контроль над вдовами и сиротами

Answer 2

Похоже, что описанный вами сценарий повисшего заголовка происходит только в том случае, если шрифт установлен вручную, а стиль изначально оставлен равным Normal.

Если вы установили стиль для заголовков как заголовок 1, 2 или 3, он не позволит заголовку остаться в нижней части страницы.

Если вы решите изменить свой документ на использование заголовков на основе стилей, вы можете изменить стили заголовка в окне Стили и форматирование.
Чтобы открыть это окно, либо:

• Нажмите кнопку Styles and Formatting на панели инструментов (кнопка «A» слева от селектора шрифтов) или
• Откройте его с помощью опции меню Format > Styles and Formatting....

Затем вы можете навести курсор мыши на доступные стили, выбрать стрелку раскрывающегося списка, нажать Modify... и изменить стили по своему вкусу.

(протестировано с Word 2003.)

Answer 3

Есть способ. Когда вы определяете свои стили, обязательно установите TRUE для .ParagraphFormat.KeepTogheter или .ParagraphFormat.KeepWithNext