image.png
想要在Word中刪除含有關(guān)鍵字【小李飛刀】的整個(gè)段落珠增。
代碼如下：
Sub 刪除word關(guān)鍵詞對(duì)應(yīng)段落()
Dim itext As String '關(guān)鍵字符
Dim pr As Long '段落數(shù)
Dim rng As Range
itext = "小李飛刀" '自行更改關(guān)鍵字
With ActiveDocument
pr = .Paragraphs.Count '段落數(shù)
For i = pr To 1 Step -1 '遍歷段落
'如果段落內(nèi)容含有關(guān)鍵字
If InStr(.Paragraphs(i).Range, itext) > 0 Then
'將段落內(nèi)容復(fù)制給rng變量
Set rng = .Paragraphs(i).Range
rng.Select '選中段落
'rng.Delete '刪除段落
End If
Next
End With
End Sub
image.png
如要?jiǎng)h除段落，將rng.delete代碼去掉注釋即可砍艾。
rng.select可以注釋或者不注釋蒂教。
