Word VBA查找that后过去式动词：OR通配符模式失效的解决与替代方案

我之前也碰到过类似的问题，Word通配符的|逻辑和我们想的不太一样，直接堆在TEXT属性里确实不会生效，给你拆解下正确的实现方式和更靠谱的替代方案：

一、为什么你的OR模式没生效？ #

Word的通配符查找中，|是分支运算符，但它的使用有严格语法要求：必须用括号把每个分支表达式包裹起来，而且要确保整个模式是一个合法的通配符结构。你直接写that [a-z]@ed|that [a-z]@t会被当成一个完整的字符串，而不是两个独立的分支模式，自然找不到匹配结果。

二、正确的通配符实现方式 #

要匹配that后接规则/部分不规则过去式（带ed/t/d/en后缀的），可以把后缀部分用分支包裹，同时用<和>确保匹配完整单词，避免误匹配（比如把"edited"里的"ted"当成独立过去式）。

VBA代码示例 #

Sub FindThatPastTense()
    Dim findRange As Range
    Set findRange = ActiveDocument.Content
    
    With findRange.Find
        .ClearFormatting
        .MatchWildcards = True
        ' 正确分支模式：匹配that后接以ed/t/d/en结尾的完整单词
        .Text = "that <([a-z]@ed|[a-z]@t|[a-z]@d|[a-z]@en)>"
        .Forward = True
        .Wrap = wdFindStop
        
        ' 循环查找并替换为现在分词（示例逻辑）
        Do While .Execute
            Dim verbPart As String
            verbPart = Split(findRange.Text, " ")(1)
            
            ' 根据后缀处理ing转换，可根据需求扩展规则
            Select Case Right(verbPart, 2)
                Case "ed"
                    verbPart = Left(verbPart, Len(verbPart) - 2) & "ing"
                Case "en"
                    verbPart = Replace(verbPart, "taken", "taking") ' 示例特殊处理
                Case "t"
                    verbPart = Left(verbPart, Len(verbPart) - 1) & "ing"
                Case "d"
                    verbPart = Replace(verbPart, "said", "saying") ' 示例特殊处理
            End Select
            
            findRange.Text = "that " & verbPart
            findRange.Collapse wdCollapseEnd
        Loop
    End With
End Sub

注意：这个通配符模式只能覆盖带常见后缀的过去式，像went、saw、did这类完全无规则的过去式还是匹配不到，这时候需要更精准的替代方案。

三、更靠谱的替代方案：字典匹配不规则动词 #

英语不规则动词的过去式没有统一后缀，最稳妥的方式是先把常见不规则动词的“过去式→现在分词”映射存入字典，然后遍历文档中所有紧跟that的单词，判断是否在字典里，再替换。

VBA代码示例 #

Sub ReplaceThatPastTenseToIng()
    Dim pastToIng As Object
    Set pastToIng = CreateObject("Scripting.Dictionary")
    
    ' 填充常见不规则动词映射，可按需扩展
    pastToIng.Add "went", "going"
    pastToIng.Add "saw", "seeing"
    pastToIng.Add "did", "doing"
    pastToIng.Add "took", "taking"
    pastToIng.Add "made", "making"
    pastToIng.Add "said", "saying"
    pastToIng.Add "sent", "sending"
    pastToIng.Add "taken", "taking"
    
    Dim findRange As Range
    Set findRange = ActiveDocument.Content
    
    With findRange.Find
        .ClearFormatting
        .MatchWildcards = True
        ' 匹配that后面的任意完整单词
        .Text = "that <[a-z]@>"
        .Forward = True
        .Wrap = wdFindStop
        
        Do While .Execute
            Dim verbWord As String
            verbWord = Split(findRange.Text, " ")(1)
            
            ' 优先处理不规则动词
            If pastToIng.Exists(verbWord) Then
                findRange.Text = "that " & pastToIng(verbWord)
            Else
                ' 处理规则动词，含双写尾字母等特殊规则
                Select Case Right(verbWord, 2)
                    Case "ed"
                        If Len(verbWord) > 2 And _
                           Right(verbWord, 3) Like "[a-z][aeiou][a-z]" Then
                            findRange.Text = "that " & Left(verbWord, Len(verbWord) - 2) & Right(verbWord, 1) & "ing"
                        Else
                            findRange.Text = "that " & Left(verbWord, Len(verbWord) - 2) & "ing"
                        End If
                    Case "d"
                        findRange.Text = "that " & Left(verbWord, Len(verbWord) - 1) & "ing"
                End Select
            End If
            
            findRange.Collapse wdCollapseEnd
        Loop
    End With
End Sub

这个方案兼顾了规则动词和不规则动词，准确性更高，你可以根据自己的文档需求扩展字典里的动词条目。

内容的提问来源于stack exchange，提问作者VBAbyMBA