VBA正则表达式匹配两行

Sub RegexMatchTwoLines()
    Dim regex As Object
    Dim match As Object
    Dim pattern As String
    Dim text As String
    
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 设置正则表达式的模式
    pattern = "(\w+)\r\n(\w+)"
    
    ' 设置待匹配的文本
    text = "Hello" & vbCrLf & "World"
    
    ' 应用正则表达式模式到文本
    With regex
        .Global = True
        .MultiLine = True
        .IgnoreCase = True
        .pattern = pattern
    End With
    
    ' 执行匹配操作
    Set match = regex.Execute(text)
    
    ' 输出匹配结果
    If match.Count > 0 Then
        Debug.Print "第一行匹配结果：" & match(0).SubMatches(0)
        Debug.Print "第二行匹配结果：" & match(0).SubMatches(1)
    Else
        Debug.Print "未找到匹配结果"
    End If
End Sub