使用Word VBA查找选定范围类似25to30格式文本失败的解决方法

你当前代码无法匹配目标内容的核心原因有2个：

1. 你写的查找文本用了通配符语法，但MatchWildcards参数设为了False，Word会把整串查找内容当成普通纯文本精确匹配，完全不会识别[0-9]、{1,}这类匹配规则。
2. 即便开启通配符，你写的[To]在Word通配符规则里代表「匹配T或o中的任意单个字符」，会误匹配25T30、25o30这类不符合要求的内容，无法精准匹配完整的"to"字符串。

Sub FindRangeNumToNum()
    With Selection.Find
        .ClearFormatting
        ' 查找规则：1位以上数字 + to + 1位以上数字
        .Text = "([0-9]{1,})to([0-9]{1,})"
        .Forward = True
        .Wrap = wdFindStop ' 仅在当前选定范围内查找，不会超出选区
        .MatchWildcards = True ' 必须开启才能使用通配符匹配规则
        .MatchCase = False ' 不区分to/To/TO大小写，需严格匹配小写to就改为True
        .Execute
        If .Found Then
            ' 此处写入匹配成功后的逻辑，比如高亮、替换、提取内容等
            MsgBox "已找到匹配内容：" & Selection.Text
        End If
    End With
End Sub

• 如果需要匹配带空格的格式（比如25 to 30），把查找文本改成([0-9]{1,})[ ]{1,}to[ ]{1,}([0-9]{1,})即可，支持to前后有1个及以上空格的场景。
• Word通配符和通用正则语法有差异，不支持\d这类数字简写，匹配数字必须写[0-9]；匹配固定长度以上的字符用{n,}语法是生效的。
• 不要给固定匹配的字符串加方括号，方括号仅用于表示「匹配括号内任意一个字符」的字符集场景。

内容的提问来源于stack exchange，提问作者Balasubramaniyan-mac