Word中删除标题的宏答案

【问题标题】：Macro to delete headings in WordWord中删除标题的宏
【发布时间】：2012-05-30 21:31:00
【问题描述】：

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

【问题讨论】：

真的有必要让标题成为整个问题吗？你可以使用，我不知道，Word Macro Help 什么的......
完成。这就是在 SO 中进行编辑很方便的地方。否则，SO 很容易像其他编程问答网站一样被垃圾填满。
我同意，遗憾的是还不能编辑。 :P

【解决方案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

【讨论】：

【解决方案2】：

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

View > Outline

接下来，选择关卡：

Show Level > Level 1.

仅删除您不想再保留的 H1 标题。可以拖拽标题，下级内容会跟在后面。

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

【讨论】：