MS Word宏 - 删除段落

Question

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

我对VBA几乎一无所知，但只是收到了一个巨大的＆amp;笨拙的文件我需要快速编辑。

Answer 1

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

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

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上试过这个。有点可怕，但似乎有效！