VBA正则匹配带重音字符问题：如何匹配法语带重音É以提取关联数字

问题根因 #

匹配失败的核心问题不是字符集写法错误，而是VBA调用的VBScript正则引擎的\b单词边界规则限制：

• \b仅识别ASCII范围内的单词字符（a-z、A-Z、0-9、下划线），法语重音字符É不属于ASCII字符，引擎不会将其判定为单词字符，因此空格和É之间的位置不会被识别为单词边界，开头的\b匹配失败直接导致整个正则失效。
• 部分VBA编辑器编码配置不同，直接在代码中写重音字符可能存在识别偏差，也会导致字符集匹配失效。

修改后可正常运行的代码 #

Sub RegexTest1()
    Dim Str As String
    Dim regMatch As String
    Dim objRegex As RegExp
    Dim num, matches, fnd
    Str = " Évaluation 423"
    ' 正则修改：替换\b为空白/开头断言，字符集用Unicode编码避免编码问题
    regMatch = "(?<=\s|^)" & "[E\xC9]valuation\s{1,3}(\d+)"
    Set objRegex = New RegExp

    With objRegex
        .Pattern = regMatch
        .Global = True
        .IgnoreCase = True
        Set matches = .Execute(Str)
        For Each fnd In matches
            num = fnd.SubMatches(0)
            MsgBox num
        Next fnd
    End With
End Sub

关键修改说明 #

• 把原正则开头的\b替换为(?<=\s|^)：正向零宽断言，匹配目标单词前面要么是字符串开头，要么是空白字符，完全适配带重音的非ASCII单词的边界识别需求。
• 字符集可选使用[E\xC9]：\xC9是大写带尖音符É的十六进制Unicode编码，完全规避VBA编辑器编码不一致导致的重音字符识别错误问题。
• 原有的IgnoreCase = True配置可以正常匹配大小写的e/é、E/É，无需额外修改字符集。

可选兼容老版本环境方案：如果运行提示正则语法错误，说明当前VBScript正则版本不支持正向零宽断言，可将正则模式修改为(?:^|\s)([E\xC9]valuation\s{1,3}(\d+))，后续取值改为num = fnd.SubMatches(1)即可正常运行。

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