使用VBA提取Word文档特定模式文本失败，求排查解决

核心问题 #

你的正则表达式存在两个关键缺陷：

1. 仅匹配了空格分隔的字母和数字，未处理-和/这两种需要忽略的分隔符
2. \b单词边界在包含特殊字符时易失效，导致无法正确识别目标字符串

修正后的代码 #

Sub RecoverText()
    Dim doc As Document
    Dim rng As Range
    Dim pattern As String
    Dim matches As Object
    Dim match As Variant
    Dim cleanedMatch As String
    
    ' 修正正则：匹配两个大写字母开头，后跟任意数量的空格/-/分隔符，再跟4-15位数字
    pattern = "[A-Z]{2}[\s\-\/]*\d{4,15}"
    
    ' 创建新文档存储提取结果
    Set doc = Documents.Add
    
    ' 设置搜索范围为当前活动文档全文
    Set rng = ActiveDocument.Content
    
    ' 初始化正则匹配对象
    Set matches = CreateObject("VBScript.RegExp")
    With matches
        .Global = True
        .IgnoreCase = False ' 关闭忽略大小写，确保仅匹配大写字母开头的字符串
        .MultiLine = True
        .pattern = pattern
    End With
    
    ' 遍历所有匹配项并处理
    For Each match In matches.Execute(rng.Text)
        ' 清理匹配结果：移除所有空格、-和/
        cleanedMatch = Replace(Replace(Replace(match.Value, " ", ""), "-", ""), "/", "")
        ' 校验长度：原始匹配字符串≤18，清理后为2字母+4-15数字（总长度6-17）
        If Len(match.Value) <= 18 And Len(cleanedMatch) >= 6 And Len(cleanedMatch) <= 17 Then
            doc.Content.InsertAfter cleanedMatch & vbCrLf
        End If
    Next match
    
    ' 激活结果文档
    doc.Activate
    
    ' 无匹配项时提示用户
    If matches.Execute(rng.Text).Count = 0 Then
        MsgBox "No matches found."
    End If
End Sub

关键修改说明 #

• 正则表达式优化：[A-Z]{2}[\s\-\/]*\d{4,15} 精准匹配大写字母开头，兼容任意数量的空格、-或/分隔符，再跟4-15位数字
• 大小写严格校验：关闭.IgnoreCase确保仅提取大写字母开头的目标字符串
• 结果清理：移除所有无关分隔符，得到纯字母数字的标准格式结果
• 双重长度校验：同时检查原始匹配长度（不超过18）和清理后的有效长度（符合2字母+4-15数字的要求）

可选优化：输出到Excel #

若需要将结果输出到Excel，可替换文档创建部分为以下代码：

' 创建新Excel工作簿并设置可见
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)
xlApp.Visible = True

' 将结果写入Excel时，替换原插入文档的代码为：
xlSheet.Cells(xlSheet.Cells(xlSheet.Rows.Count, 1).End(-4162).Row + 1, 1).Value = cleanedMatch

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