当然可以实现！你当前的问题是代码逻辑限制了搜索范围，我们只需要调整查找替换的参数和范围，就能让程序对整个Word文档全局搜索并替换txt1、txt2、txt3这三个关键词。

下面是修改后的完整VBA代码，我会标注关键调整点：

Sub ReplaceAllTargetWords()
    Dim targetDoc As Document
    Dim targetWords As Variant
    Dim singleWord As Variant
    
    ' 绑定当前活动文档
    Set targetDoc = ActiveDocument
    ' 把要处理的关键词放进数组，方便后续维护
    targetWords = Array("txt1", "txt2", "txt3")
    
    ' 暂时关闭屏幕更新，避免频繁刷新影响效率
    Application.ScreenUpdating = False
    
    ' 遍历每个关键词，逐个执行全局替换
    For Each singleWord In targetWords
        With targetDoc.Content.Find
            ' 清空查找和替换的格式设置，避免干扰
            .ClearFormatting
            .Replacement.ClearFormatting
            
            .Text = singleWord ' 设置要搜索的关键词
            .Replacement.Text = "" ' 设置替换为空
            
            .Forward = True ' 正向搜索
            .Wrap = wdFindContinue ' 核心设置：到达文档末尾后继续从开头查找，确保覆盖全文档
            .Format = False ' 不匹配格式
            .MatchCase = False ' 不区分大小写（可根据需求改成True）
            .MatchWholeWord = False ' 不要求匹配整词（可根据需求改成True）
            .MatchWildcards = False ' 不使用通配符
            
            ' 执行全部替换操作
            .Execute Replace:=wdReplaceAll
        End With
    Next singleWord
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "所有目标关键词已完成替换！"
End Sub

关键调整说明： #

1. 搜索范围：使用targetDoc.Content作为查找对象，直接覆盖整个文档的内容，而不是限定在某个局部位置。
2. Wrap参数：设置为wdFindContinue，这个参数会让查找操作在到达文档结尾后自动回到开头继续搜索，彻底避免遗漏任何位置的关键词。
3. 批量处理：用数组管理关键词，后续要添加或修改目标词时，只需要修改targetWords数组即可，不用重复写查找逻辑。

你可以直接把这段代码复制到Word的VBA编辑器（按Alt+F11打开）里，运行就能实现全局替换的需求啦。

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