如何使用Word VBA宏删除后续未跟随表格的指定字符串

核心逻辑 #

• 提前配置需要检测的目标字符串集合，支持同时配置多个待检测内容
• 采用从文档末尾倒序查找的方式，避免正序删除内容后触发查找范围偏移的问题
• 每次定位到目标字符串后，自动跳过字符串后的空白字符（空格、换行、制表符、分页符等），判断后续首个非空白内容是否为表格：
  • 后续紧跟表格则保留目标字符串
  • 后续为普通文本或其他非表格内容则直接删除目标字符串

完整宏代码 #

Sub 删除未紧跟表格的指定字符串()
    Dim targetStrings As Variant
    Dim i As Integer
    Dim findRange As Range
    Dim nextRange As Range
    
    ' ====================== 按需修改下方配置 ======================
    ' 此处填写你需要检测的所有指定字符串，可新增、删除、修改数组元素
    targetStrings = Array("待检测字符串1", "待检测字符串2", "表头前置标识")
    ' 是否全字匹配，是则改为True
    Const matchWholeWord As Boolean = False
    ' 是否区分大小写，是则改为True
    Const matchCase As Boolean = False
    ' ==============================================================
    
    ' 关闭屏幕更新提升运行效率
    Application.ScreenUpdating = False
    
    For i = LBound(targetStrings) To UBound(targetStrings)
        Set findRange = ActiveDocument.Content
        
        ' 初始化查找参数
        With findRange.Find
            .ClearFormatting
            .Text = targetStrings(i)
            .MatchWholeWord = matchWholeWord
            .MatchCase = matchCase
            .Forward = False ' 倒序查找
            .Wrap = wdFindStop
        End With
        
        ' 遍历所有匹配项
        Do While findRange.Find.Execute() = True
            ' 定位到匹配字符串结束后的第一个字符
            Set nextRange = ActiveDocument.Range(Start:=findRange.End, End:=findRange.End)
            
            ' 跳过所有空白字符
            Do While nextRange.Text = " " Or nextRange.Text = Chr(13) Or nextRange.Text = Chr(9) Or nextRange.Text = Chr(12)
                ' 已到文档末尾则终止循环
                If nextRange.End = ActiveDocument.Content.End Then Exit Do
                nextRange.MoveStart Unit:=wdCharacter, Count:=1
                nextRange.MoveEnd Unit:=wdCharacter, Count:=1
            Loop
            
            ' 未检测到后续表格则删除当前匹配字符串
            If Not nextRange.Information(wdWithInTable) Then
                findRange.Delete
            End If
        Loop
    Next i
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "字符串校验处理完成", vbInformation
End Sub

使用说明 #

1. 运行宏前请先备份原文档，避免误操作导致内容丢失
2. 按需修改代码配置区的待检测字符串、匹配规则即可使用
3. 代码默认会跳过字符串和表格之间的空白内容，如有需要可以自行修改空白字符的判定逻辑

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