Word VBA中表格末尾高亮文本触发Do While循环无限循环崩溃问题求助

这个问题我太熟悉了——Word VBA里处理表格内的查找操作时，依赖Selection对象很容易踩无限循环的坑，尤其是最后一个匹配项在表格里的时候。表格的单元格边界会干扰查找的范围判断，导致Find.Execute反复命中同一个区域，最终触发崩溃。

你的核心统计逻辑是没问题的，问题出在Selection带来的范围不确定性上。改用Range对象来精准控制查找的起始位置，就能彻底解决这个问题。下面是修改后的代码，我会标注关键改动：

Sub CountHighlightedWords()
    Dim doc As Document
    Dim searchRange As Range
    Dim foundRange As Range
    Dim w_blueMatch As Long, w_yellowGreenGreyMatch As Long
    Dim o_link As Hyperlink
    
    Set doc = ActiveDocument
    Set searchRange = doc.Content ' 从整个文档内容开始查找，避免Selection的范围混乱
    
    w_blueMatch = 0
    w_yellowGreenGreyMatch = 0
    
    ' 查找所有高亮文本
    With searchRange.Find
        .ClearFormatting
        .Wrap = wdFindStop ' 限制查找至文档结束，避免循环查找
        .Highlight = True
        
        Do While .Execute(Forward:=True)
            If .Found Then
                Set foundRange = searchRange.Duplicate ' 复制找到的范围，防止修改原搜索范围
                
                ' 删除超链接（保留你原有的处理逻辑）
                If foundRange.Hyperlinks.Count > 0 Then
                    For Each o_link In foundRange.Hyperlinks
                        o_link.Delete
                    Next o_link
                End If
                
                ' 按高亮颜色统计单词数
                If foundRange.HighlightColorIndex = wdTurquoise Then
                    w_blueMatch = w_blueMatch + foundRange.ComputeStatistics(wdStatisticWords)
                Else
                    w_yellowGreenGreyMatch = w_yellowGreenGreyMatch + foundRange.ComputeStatistics(wdStatisticWords)
                End If
                
                ' 关键修复：将搜索范围起始点移到当前匹配项之后，避免重复查找
                searchRange.Start = foundRange.End
            End If
        Loop
    End With
    
    ' 可添加结果输出，比如弹出提示框
    MsgBox "蓝色高亮单词数：" & w_blueMatch & vbCrLf & "黄/绿/灰高亮单词数：" & w_yellowGreenGreyMatch
End Sub

关键改动说明： #

• 替换Selection为Document.Content作为初始搜索范围，彻底避免表格环境下Selection的范围异常
• 每次找到匹配项后，将搜索范围的Start设置为当前匹配范围的End，确保下一次查找从新位置开始，不会在表格内循环
• 使用foundRange = searchRange.Duplicate保存匹配范围，避免修改原搜索范围导致的查找逻辑混乱

你之前删除超链接的逻辑是合理的，因为超链接可能会干扰范围统计，所以保留了这部分代码。现在测试的话，即使最后一个高亮区域在表格里，循环也会正常结束，不会再出现崩溃问题。

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