VBA 正则表达式 用于匹配重复英文单词

VBA中的正则表达式是一种强大的文本处理工具，可以用来匹配、查找和替换复杂的模式。如果你想在VBA中使用正则表达式来匹配重复的英文单词，你可以创建一个模式来识别连续出现的相同单词。例如，模式`"\b(\w+)\b(?=\s+\1)"`可以做到这一点：

- `\b` 表示单词边界，确保我们只匹配整个单词。
- `(\w+)` 是一个捕获组，匹配一个或多个字母数字字符（等效于[a-zA-Z0-9_]），并存储到组1中。
- `(?=\s+\1)` 是一个向前前瞻，检查是否有空格后跟相同的组1内容，如果存在就认为找到了重复。

在VBA中，你可以这样使用：

Dim regex As Object
Set regex = CreateObject("vbscript.regexp")
regex.Pattern = "\b(\w+)\b(?=\s+\1)"
Dim text As String
text = "This is a test test, with repeated words."
Dim matches() As MatchCollection
Set matches = regex.Execute(text)

For Each match In matches
    Debug.Print "Found duplicate: " & match.SubMatches(0) ' 输出找到的重复单词
Next match