在VBA WORD中搜索长度超过255个字符的字符串

Sub SearchLongString()
    Dim doc As Document
    Dim rng As Range
    Dim searchString As String
    Dim result As String
    
    ' 设置要搜索的字符串
    searchString = "要搜索的字符串"
    
    ' 获取当前活动文档
    Set doc = ActiveDocument
    
    ' 设置搜索范围为整个文档
    Set rng = doc.Range
    
    ' 清除之前的搜索结果
    doc.Range.HighlightColorIndex = wdNoHighlight
    
    ' 开始搜索
    Do While rng.Find.Execute(findText:=searchString, MatchWildcards:=False, Forward:=True) = True
        ' 检查找到的字符串长度是否超过255个字符
        If Len(rng.Text) > 255 Then
            ' 将找到的字符串标记为黄色高亮显示
            rng.HighlightColorIndex = wdYellow
            ' 将找到的字符串添加到结果字符串中
            result = result & rng.Text & vbCrLf
        End If
        ' 将搜索范围移动到下一个位置
        rng.Collapse Direction:=wdCollapseEnd
    Loop
    
    ' 显示搜索结果
    If result <> "" Then
        MsgBox "找到以下长度超过255个字符的字符串：" & vbCrLf & result
    Else
        MsgBox "未找到长度超过255个字符的字符串。"
    End If
End Sub