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

使用VBA删除包含各种短语的MS Word文档可以通过以下步骤实现：

打开MS Word文档并启用开发工具栏。在Word菜单中选择“文件”>“选项”>“自定义功能区”，勾选“开发工具栏”并点击“确定”。
点击开发工具栏中的“Visual Basic”按钮，打开VBA编辑器。
在VBA编辑器中，选择“插入”>“模块”，在新建的模块中编写VBA代码。
使用以下VBA代码删除包含特定短语的文本：

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