word vba 正则表达式 匹配

在 Word VBA 中，可以使用正则表达式对象来进行匹配。下面是一个示例代码，使用正则表达式匹配文本中的数字：

Sub RegexTest()
    Dim regEx As Object
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = "\d+" '匹配一个或多个数字
    regEx.Global = True '全局匹配
    Dim str As String
    str = "abc123def456ghi789"
    Dim matches As Object
    Set matches = regEx.Execute(str)
    Dim i As Integer
    For i = 0 To matches.Count - 1
        Debug.Print matches(i)
    Next i
End Sub

在上面的示例中，首先创建了一个正则表达式对象 regEx，指定了要匹配的模式为一个或多个数字。然后将 Global 属性设置为 True，表示要进行全局匹配。接下来使用 Execute 方法执行匹配，将匹配结果保存到 matches 对象中。最后使用一个循环遍历所有匹配结果，并将它们输出到调试窗口中。

需要注意的是，在 Word VBA 中使用正则表达式需要先创建一个正则表达式对象，并使用 CreateObject 函数来创建。另外，不同的正则表达式语法可能有所不同，需要根据具体情况来进行调整