分页之间没有悬空的词头？

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

我熟悉这个问题： Getting the headings from a Word document

谢谢！

Answer 1

您所描述的悬空标题场景似乎仅在手动设置字体并且样式最初保持为“正常”时才会出现。

如果您将标题上的样式设置为标题1,2或3，则会阻止标题单独留在页面底部。

如果您决定更改文档以使用基于样式的标题，则需要在“样式和格式”窗口中更改标题样式。
要打开该窗口，请执行以下操作：

• 点击工具栏上的Styles and Formatting按钮（字体选择器左侧的“A”按钮）或
• 通过Format > Styles and Formatting...菜单选项打开它。

然后，您可以将鼠标悬停在可用的样式上，选择下拉箭头，单击Modify...，然后根据自己的喜好更改样式。

（使用Word 2003测试。）

Answer 2

您想要“保持下一个”（段落格式＆gt;行和分页符标签）。

可能也有兴趣：寡妇/孤儿控制

Answer 3

有一种方法。定义样式时，请务必为.ParagraphFormat.KeepTogheter或.ParagraphFormat.KeepWithNext

设置为TRUE。