VBA删除Word中含有关键字的段落

image.png

想要在Word中删除含有关键字【小李飞刀】的整个段落。
代码如下：

Sub 删除word关键词对应段落()
    Dim itext As String '关键字符
    Dim pr As Long  '段落数
    Dim rng As Range
    itext = "小李飞刀"  '自行更改关键字
    With ActiveDocument
        pr = .Paragraphs.Count  '段落数
        For i = pr To 1 Step -1  '遍历段落
        '如果段落内容含有关键字
            If InStr(.Paragraphs(i).Range, itext) > 0 Then
            '将段落内容复制给rng变量
                Set rng = .Paragraphs(i).Range
                rng.Select  '选中段落
                'rng.Delete  '删除段落
            End If
        Next
    End With
End Sub

image.png

如要删除段落，将rng.delete代码去掉注释即可。

rng.select可以注释或者不注释。