☰

Word 2010 - H2 之前的分页符（H1 之后除外）

tag-icon • tag-icon microsoft-word microsoft-word-2010
Word 2010 - H2 之前的分页符（H1 之后除外）

我有一个 Word 文档，其结构大致如下：

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
...

答案1

创建新的样式将实现您的目标。请尝试以下步骤：

  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打开宏对话框。双击“将标题 2 替换为标题 2Prime”运行宏的项目。

我希望这有帮助。

答案2

我的解决方案是：

  1. 在 H2 的样式属性中勾选“分页符在…之前”复选框，
  2. 对于 H1 的每个实例，转到其关联的“x.1”，即 H2 的第一个实例，打开段落属性并手动取消勾选“分页符之前”复选框。

就像这个线程中的 Darrin Koltow 解决方案一样，它有其优点（不需要单独的样式）和缺点（仍然需要一些手动工作），这显然是一个偏好问题。

我真的不明白为什么这不是内置功能。我设法找到了这和这证明 uservoice 是请求的官方渠道，但现在没有时间进一步研究这个问题。

相关内容