Word VBA删除含指定文本段落问题：(APL)匹配失效求助

问题原因 #

你代码中InStr(doc.Paragraphs(i).Range.Text, "(APL)")是查找带括号的(APL)，但示例文本FRUIT//APL BAN//里的APL没有括号包裹，导致匹配失败，所以该段落不会被删除。

修复方案 #

方案1：直接补充无括号的APL匹配 #

修改判断条件，新增对无括号APL的检测：

Sub DeleteSpecificParagraphs()
    Dim doc As Document
    Set doc = ActiveDocument
    Dim i As Long

    For i = doc.Paragraphs.Count To 1 Step -1
        With doc.Paragraphs(i).Range
            If InStr(.Text, "(APPLE)") > 0 _
              Or InStr(.Text, "(APPLE/ORANGES)") > 0 _
              Or InStr(.Text, "(ORANGES)") > 0 _
              Or InStr(.Text, "(AP)") > 0 _
              Or InStr(.Text, "(APL)") > 0 _
              Or InStr(.Text, "APL") > 0 Then
                .Delete
            End If
        End With
    Next i
End Sub

方案2：用数组管理关键词（更易维护） #

把所有需要匹配的关键词放入数组，循环检查，后续新增关键词只需修改数组即可：

Sub DeleteSpecificParagraphs()
    Dim doc As Document
    Set doc = ActiveDocument
    Dim i As Long
    Dim keywords As Variant
    Dim keyword As Variant
    
    ' 包含所有需要匹配的关键词（带/不带括号都可）
    keywords = Array("(APPLE)", "(APPLE/ORANGES)", "(ORANGES)", "(AP)", "(APL)", "APL")
    
    For i = doc.Paragraphs.Count To 1 Step -1
        For Each keyword In keywords
            If InStr(doc.Paragraphs(i).Range.Text, keyword) > 0 Then
                doc.Paragraphs(i).Range.Delete
                Exit For ' 找到匹配就停止当前段落的检查
            End If
        Next keyword
    Next i
End Sub

额外优化 #

如果需要忽略大小写匹配（比如同时匹配APL和apl），可以把InStr改为带vbTextCompare参数的形式：

InStr(1, doc.Paragraphs(i).Range.Text, "APL", vbTextCompare) > 0

内容的提问来源于stack exchange，提问作者NewbieatVBAs