Word VBA查找被动语态

Sub FindPassiveVoice()
    Dim rng As Range
    Dim found As Boolean
    
    ' 设置要查找的范围为整个文档
    Set rng = ActiveDocument.Content
    
    ' 开始查找
    With rng.Find
        .ClearFormatting
        .Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        
        ' 设置查找的模式为被动语态的句子
        .Execute FindText:="* is * by *", MatchWildcards:=True
        
        ' 检查是否找到了匹配的内容
        If .Found Then
            found = True
            ' 遍历找到的结果并进行处理
            Do While found
                ' 在这里可以对找到的被动语态句子进行处理，比如标记或替换等操作
                ' 例如：rng.Font.Bold = True
                ' 例如：rng.Text = "替换文本"
                
                ' 继续查找下一个匹配项
                found = .Execute
            Loop
        End If
    End With
    
    ' 清除查找对象
    Set rng = Nothing
End Sub