Vba MS Word宏-删除段落

请有人帮我使用一个MS Word宏，它可以在整个文档的每个段落中搜索特定的符号，并删除不包含该符号的段落

---

我对VBA几乎一无所知，但刚刚收到一个庞大而笨拙的文档，我需要快速编辑。

这里有一个快速宏，它可以做你想做的事情-小心使用，别忘了备份

将“搜索”的值设置为要查找的文本。它非常粗糙，如果你的文本没有出现在段落的某个地方，它会删除该段落

Sub DeleteParagraphContainingString()

    Dim search As String
    search = "delete me"

    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs

        Dim txt As String
        txt = para.Range.Text

        If Not InStr(LCase(txt), search) Then
            para.Range.Delete
        End If

    Next

End Sub

我在Office2007上试过这个。有点吓人，但似乎有效