如何用VBA删除包含各种短语的ms-word文档？

Sub DeletePhrases()
    Dim doc As Document
    Dim rng As Range
    Dim phrase As Variant
    
    Set doc = ActiveDocument
    Set rng = doc.Content
    
    ' 定义要删除的短语列表
    Dim phrases() As Variant
    phrases = Array("短语1", "短语2", "短语3")
    
    ' 遍历文档中的每个短语并删除
    For Each phrase In phrases
        With rng.Find
            .Text = phrase
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        
        ' 循环查找并删除短语
        Do While rng.Find.Execute
            rng.Delete
        Loop
    Next phrase
    
    MsgBox "已删除指定短语。"
End Sub