Excel VBA代码替换Word文件内容无效，求解决方案

你的代码执行无效果的核心原因是：使用晚绑定（CreateObject("Word.Application")）调用Word时，Excel VBA环境未定义Word的内置常量wdFindContinue和wdReplaceAll，这两个常量会被默认解析为数值0，导致查找替换的参数不符合预期，最终无法执行替换操作。

以下是两种可行的解决方法：

方法一：手动定义常量值 #

在代码开头添加Word常量的数值定义（wdFindContinue对应1，wdReplaceAll对应2），修改后的完整代码如下：

Sub Combine_TrainingPlan_Test()

' 手动定义Word内置常量的数值
Const wdFindContinue As Integer = 1
Const wdReplaceAll As Integer = 2

Dim objWord
Dim objDoc
Dim FileAddress As String

FileAddress = "C:\Users\Ali\Desktop\Test\T2.docx"

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

Set objDoc = objWord.Documents.Open(FileAddress)

With objDoc.Content.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "60028951"
    .Replacement.Text = "Goodbye"
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
End With

' 可选：保存文档并清理Word进程
objDoc.Save
objDoc.Close
objWord.Quit
Set objDoc = Nothing
Set objWord = Nothing

End Sub

方法二：改用早绑定（需引用Word对象库） #

早绑定可以直接使用Word的内置常量，同时代码会有智能提示，步骤如下：

1. 打开Excel VBA编辑器，点击顶部菜单工具 -> 引用，勾选Microsoft Word xx.x Object Library（xx.x为你的Word版本号）
2. 使用以下代码：

Sub Combine_TrainingPlan_Test()

Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim FileAddress As String

FileAddress = "C:\Users\Ali\Desktop\Test\T2.docx"

Set objWord = New Word.Application
objWord.Visible = True

Set objDoc = objWord.Documents.Open(FileAddress)

With objDoc.Content.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "60028951"
    .Replacement.Text = "Goodbye"
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
End With

' 可选：保存文档并清理Word进程
objDoc.Save
objDoc.Close
objWord.Quit
Set objDoc = Nothing
Set objWord = Nothing

End Sub

额外注意事项 #

• 确保目标Word文件未被其他程序占用，否则Documents.Open会执行失败
• 如果需要替换带格式的文本，可移除.ClearFormatting并设置对应的格式匹配参数
• 执行完操作后建议保存文档并释放Word对象，避免后台残留Word进程

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