MS Word 宏 - 删除段落

Question

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

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

Answer 1

这是一个快速宏，它应该可以做你想做的 - 谨慎使用，不要忘记备份！

将 'search' 的值设置为您要查找的文本。它非常粗糙，如果您的文本没有出现在其中的某处，它将删除该段落。

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

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