嘿，作为资深Access VBA开发者，刚转Word VBA碰到这类文档处理需求太正常了——Word的对象模型和Access确实有不少差异，我之前也踩过几个小坑，给你整理个直接能用的方案：

核心思路 #

我们需要完成三个关键步骤：

• 遍历Word文档中的所有段落
• 筛选出包含连字符-的段落（跳过空段落）
• 提取段落文本并传入你已实现的解析函数，最终拿到符合格式aaa-aaa-##-##-###的案号

完整代码实现 #

下面是可直接运行的VBA代码，我加了详细注释，你可以根据自己的实际需求调整：

Sub ExtractCaseNumbersFromParagraphs()
    Dim para As Paragraph
    Dim paraText As String
    Dim caseNumber As String
    
    ' 关闭屏幕更新提升处理速度（大文档必备）
    Application.ScreenUpdating = False
    
    ' 遍历文档中每一个段落
    For Each para In ActiveDocument.Paragraphs
        ' 提取段落纯文本，去除末尾的段落标记和多余空白字符
        paraText = Trim(Replace(para.Range.Text, vbCr, ""))
        
        ' 跳过空段落，只处理包含连字符的段落
        If Len(paraText) > 0 And InStr(1, paraText, "-") > 0 Then
            ' 调用你已经实现的解析函数提取案号
            caseNumber = ParseCaseNumber(paraText)
            
            ' 这里可以自定义后续处理逻辑：比如写入新文档、Excel表格，或者输出到立即窗口
            If caseNumber <> "" Then
                Debug.Print "找到案号: " & caseNumber & vbTab & "来源段落: " & Left(paraText, 50) & "..."
            End If
        End If
    Next para
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "案号提取完成！可查看立即窗口结果（Ctrl+G打开）"
End Sub

' 假设你已实现的解析函数示例（如果你的函数逻辑不同，直接替换即可）
' 这里用正则表达式精准匹配格式：aaa-aaa-##-##-###
Function ParseCaseNumber(inputText As String) As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 配置正则规则：匹配3字母-3字母-2数字-2数字-3数字的格式
    regex.Pattern = "[A-Za-z]{3}-[A-Za-z]{3}-\d{2}-\d{2}-\d{3}"
    regex.IgnoreCase = True ' 忽略字母大小写，根据需求调整
    regex.Global = False ' 只返回第一个匹配到的案号（如果段落有多个可设为True）
    
    ' 执行匹配并返回结果
    If regex.Test(inputText) Then
        ParseCaseNumber = regex.Execute(inputText)(0).Value
    Else
        ParseCaseNumber = "" ' 无匹配返回空字符串
    End If
    
    Set regex = Nothing
End Function

关键注意事项 #

• 段落文本处理：Word的Paragraph.Range.Text会包含末尾的段落标记（vbCr），用Replace和Trim可以得到干净的纯文本。
• 正则表达式调整：如果你的案号格式有特殊变体（比如允许字母数字混合的前缀，或者有额外符号），直接修改regex.Pattern即可。比如要匹配整段就是案号，可以加上^和$：^[A-Za-z]{3}-[A-Za-z]{3}-\d{2}-\d{2}-\d{3}$。
• 性能优化：处理大文档时，一定要记得关闭ScreenUpdating，否则会非常卡顿；如果需要处理多个文档，可以循环打开文档进行操作。
• 解析函数兼容：如果你的现有解析函数参数或返回值不同，只需要在ExtractCaseNumbersFromParagraphs中调整调用逻辑即可，核心的段落遍历和筛选逻辑不需要改动。

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