Find如何突破255字符匹配目标文本

weiyingde

我想用VBA代码匹配“答：”或“解析”之后的文本（同一段中），并将其文本划线。
我的代码是：
Sub 格式目标文本()
With ActiveDocument.Content.Find
    Do While .Execute("^13[答：|解析：|析][!^13]{1,}", , , 1)
        With .Parent
             .MoveStart wdCharacter, IIf(InStr(.Text, "解析：") > 0, 4, 3)
             .Font.Name = "楷体"
             .Font.Size = 12
             .Font.ColorIndex = 6
             .Font.Bold = True
             .Font.Underline = 11
             .Font.UnderlineColor = 9
             .Collapse 0
        End With
    Loop
End With
End Sub
问题：[!^13]{1,}只能匹配255字符，致使有些目标字符没有格式化，我改成：[!^13]{1,500}，又出毛病。
请教：如何突破这个局限呢？

weiyingde

自我解决。
"^13[答：|解析：|析][!^13]@^13"

cuanju

直接用这个即可：
^13[解析答][!^13]@^13

word的通配符没有正则表达式高级，没有“|”用作或的方法，所以不需要使用[答：|解析：|析]。

weiyingde

cuanju 发表于 2020-7-7 08:13
直接用这个即可：
^13[解析答][!^13]@^13

谢谢你的关注和帮助。多谢普及基础知识，我没有实验。