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

在VBA中，如果你想要匹配连续标点符号后的英文单词，可以使用正则表达式来识别并移除它们。下面是一个例子，展示了如何构建这样一个正则表达式和相应的VBA函数：

首先，创建一个`RegExp`对象，指定模式，该模式会查找由连续标点符号分隔的英文单词：

Dim regex As Object
Set regex = CreateObject("VBScript.Regexp")
regex.Pattern = "[^a-zA-Z]*\b\w+\b[^a-zA-Z]*" ' 这里[^a-zA-Z]表示非字母字符

在这个模式中，`\b\w+\b` 是匹配一个英文单词的部分，而`[^a-zA-Z]*` 匹配零个或多个非字母字符，即允许连续的标点符号存在。

接下来，编写一个函数，将满足条件的单词提取出来：

Function GetWordsWithPunctuation(strInput As String) As String
    Dim match As MatchCollection
    If Not regex.Test(strInput) Then
        GetWordsWithPunctuation = strInput ' 如果没有匹配，则直接返回原字符串
    Else
        Set match = regex.Execute(strInput)
        Dim word As String
        Dim result As String
        For Each word In match
            result = result & Replace(word.SubString(word.Index, word.Length), word, "") ' 移除匹配的部分
        Next
        GetWordsWithPunctuation = result
    End If
End Function

这个函数会在输入的字符串中查找所有匹配项，然后将其替换为空字符串，只保留其他部分。

最后，你可以像这样调用此函数：

Sub ProcessText()
    Dim str As String
    str = "Hello, world! This is a sample text with some punctuation., ."
    Debug.Print GetWordsWithPunctuation(str)
End Sub

运行`ProcessText`后，你会得到如"Hello"这样的单词，标点符号已被移除。