Word中Find and Replace与RegExp正则表达式的差异及匹配失效问题

需要匹配的文本格式：1个*、1个-、1个或多个数字、1个-、1个或多个大写字母、1个或多个_（若原需求包含下划线后多个空格，需补充对应匹配规则）。

使用VBScript的RegExp对象可成功匹配首个结果，代码如下：

Set regEx = New RegExp
regEx.IgnoreCase = False
regEx.MultiLine = True
regEx.Global = False
regEx.Pattern = "\*{1}\-{1}\d{1,}\-{1}[A-Z]{1,}\_ {1,}"

If regEx.Test(Rng) Then
    Set Matches = regEx.Execute(Rng)
    MsgBox Matches(0).FirstIndex + 1
Else
    MsgBox 0
End If

但将相同模式直接套用在Word的Find方法中时，无法正常完成匹配替换，失效代码如下：

With Rng.Find
    .ClearFormatting
    .Text = "\*{1}\-{1}\d{1,}\-{1}[A-Z]{1,}\_ {1,}"
    .Wrap = wdFindContinue
    .MatchWildcards = True
    With .Replacement
        .ClearFormatting
        .Font.Bold = True
        .Font.Underline = True
        
        .Text = "Bla-bla-bla"

    End With
    
    .Execute

    If .Found = True Then
        .Execute Replace:=wdReplaceOne
    End If
End With

问题原因 #

Word的Find通配符语法和VBScript RegExp不兼容，不能直接照搬RegExp的模式规则：

• Word中*是通配符（匹配任意长度字符），匹配字面量*必须用\*；
• 数字匹配需用[0-9]，+表示“一个或多个”（需开启通配符）；
• -在字符组外是普通字符，无需转义；
• _是普通字符，无需转义；
• RegExp中的\d在Word通配符中无对应写法，需用[0-9]（#仅匹配单个数字）；
• 量词{1,}可简化为+，效果完全一致。

修正后的代码 #

针对需求调整Find的通配符模式，并优化执行逻辑：

With Rng.Find
    .ClearFormatting
    .Text = "\*-[0-9]+-[A-Z]+_+" ' 匹配*数字-大写字母-多个下划线；若需匹配下划线后多个空格，改为"\*-[0-9]+-[A-Z]+_ +"
    .Wrap = wdFindContinue
    .MatchWildcards = True
    With .Replacement
        .ClearFormatting
        .Font.Bold = True
        .Font.Underline = True
        .Text = "Bla-bla-bla"
    End With
    ' 直接执行单次替换，无需分开查找再替换
    .Execute Replace:=wdReplaceOne
    If .Found Then
        MsgBox "已完成单次替换"
    Else
        MsgBox "未找到匹配内容"
    End If
End With

关键调整点 #

1. 将RegExp语法的\d替换为Word通配符支持的[0-9]；
2. 移除不必要的转义符（如\-改为-，\_改为_）；
3. 用量词+替代{1,}，简化模式写法；
4. 合并查找和替换操作，直接通过Execute Replace:=wdReplaceOne完成单次替换，避免重复执行。

内容的提问来源于stack exchange，提问作者Владимир Лиленко