Ms word 宏删除Word中的标题

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

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

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

将段落改为段落
Set OSTARTHEADINGPARATION=选择。段落（1）
如果标题为段落样式“标题1”，则
MsgBox“请为要删除的部分选择标题1段落。”
其他的
作为段落的暗淡阴影
设置OparGraph=OSTARTHEADING段落
不要读段落，下一步什么都不是
如果ostarheadingparagration.Next.Style=“标题1”，则
退出Do
其他的
ostarheadingparagration.Next.Range.Delete
如果结束
环
ostarheadingparagration.Range.Delete
如果结束

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

View > Outline 

接下来，选择级别：

Show Level > Level 1.  

只删除您不想再保留的H1标题。您可以拖放标题，随后将显示从属内容

---

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

是否真的需要将标题作为整个问题？我不知道，你本可以用“宏帮助”之类的词……完成。这就是使用SO进行编辑的方便之处。否则，SO可能会像其他编程问答网站一样，很容易被乱扔垃圾。我同意，遗憾的是还不能编辑P