删除Word中标题的宏

Question

我有一个 WORD 文档，其中有许多 H1 标题。 我想要一个宏，允许我删除从特定 H1 标题到下一个 H1 标题的所有内容 - 本质上是删除 H1 部分。 同样，我可能想从 H2 标题中删除直到下一个 H1 或 H2 标题。

Answer 1

您可以使用 oParagraph.Style 确定段落的样式（其中 oParagraph 是 Paragraph 对象）。 所以，你可以这样做：

Dim oStartHeadingParagraph As Paragraph
Set oStartHeadingParagraph = Selection.Paragraphs(1)

If oStartHeadingParagraph.Style <> "Heading 1" Then
    MsgBox "Please select the Heading 1 paragraph for the section you want to delete."
Else

    Dim oParagraph As Paragraph
    Set oParagraph = oStartHeadingParagraph

    Do While Not oStartHeadingParagraph.Next Is Nothing
        If oStartHeadingParagraph.Next.Style = "Heading 1" Then
            Exit Do
        Else
            oStartHeadingParagraph.Next.Range.Delete
        End If
    Loop

    oStartHeadingParagraph.Range.Delete

End If

Answer 2

您不需要宏：在大纲视图中编辑文档。 导航到那里并仅选择标题级别 1，如下所示：

View > Outline 

接下来，选择级别：

Show Level > Level 1.  

仅删除不再希望保留的 H1 标题。 您可以拖动& 删除标题，然后是从属内容。

这是根据需要进行大规模编辑的绝佳视图。