VBA 正则表达式 用于匹配连续标点符号后的重复英文单词

在VBA（Visual Basic for Applications）中，虽然正则表达式功能相对较弱，但可以利用它来进行简单的文本模式匹配。如果你想要匹配连续标点符号（如".,!"）后面重复的英文单词，你可以使用类似于下面的简单正则表达式：

Sub MatchWords()
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 匹配模式，这里假设重复单词由一个或多个空格隔开
    Dim pattern As String
    pattern = "\b(\w+)\s+\1\b(?=.*[.,!])"

    Dim inputString As String
    inputString = "This, this is a test sentence! This is repeated!"

    ' 使用正则表达式查找所有匹配项
    Dim matches() As MatchCollection
    Set matches = regex.Execute(inputString)

    For Each match In matches
        Debug.Print match.Value ' 打印找到的重复单词
    Next match
End Sub

这个例子中，`\b` 表示单词边界，`\w+` 匹配一个或多个字母数字字符，`\s+` 匹配一个或多个空格，`\1` 则引用前面捕获的第一个单词。`(?=.*[.,!])` 是向前前瞻，确保该单词后面跟着一个标点符号。

请注意，VBA的正则表达式功能有限，对于复杂的模式可能需要额外处理。另外，如果输入字符串中存在连续的标点符号而没有单词，这个表达式可能不会正常工作。