用于删除Word中标题的宏

Question

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

Answer 1

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

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标题。你可以拖拽删除标题，下属内容将随之而来。

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