在Word VBA宏中操作Excel列替换内容时遇编译错误求助

在Word VBA宏中尝试调用Excel的子过程替换某列字符串时，出现编译错误："Compile error: Method or data member not found."

需求：修改Word宏，将Excel中“Done”列（对应G列）的“TRUE”替换为“Resolved”、“FALSE”替换为“Open”。已在Excel中录制完成该操作的ReplaceInDone宏，但直接在Word宏中使用Call ReplaceInDone会触发上述错误，不知道如何实现Word与Excel的跨程序交互。

附Excel录制的宏代码：

Sub ReplaceInDone()
'
' ReplaceInDone Macro
'
Columns("G:G").Select
Selection.Replace What:="TRUE", Replacement:="Resolved", LookAt:=xlPart, _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Replace What:="FALSE", Replacement:="Open", LookAt:=xlPart, _
    SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub

解决建议 #

方案1：直接在Word宏中编写跨程序替换逻辑（推荐） #

无需依赖Excel中的宏，直接在Word VBA里创建Excel对象，打开目标文件后执行替换操作：

Sub WordToExcelReplace()
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object
    
    ' 创建Excel应用对象（后期绑定，无需引用库）
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True ' 可设为False后台运行
    
    ' 打开目标Excel文件，替换为你的实际文件路径
    Set xlWB = xlApp.Workbooks.Open("C:\你的文件路径\目标文件.xlsx")
    ' 操作第一个工作表，可根据实际修改为工作表名称，如Sheets("Sheet1")
    Set xlWS = xlWB.Sheets(1)
    
    ' 执行替换操作，避免使用Select提升效率
    With xlWS.Columns("G:G")
        .Replace What:="TRUE", Replacement:="Resolved", LookAt:=2 ' xlPart对应数值2
        .Replace What:="FALSE", Replacement:="Open", LookAt:=2
    End With
    
    ' 保存并关闭文件，可根据需求调整是否保存/关闭
    xlWB.Save
    xlWB.Close
    xlApp.Quit
    
    ' 释放对象
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

方案2：通过Word宏调用Excel中的ReplaceInDone宏 #

如果一定要调用Excel里已录制的宏，需通过Excel对象触发：

Sub CallExcelMacroFromWord()
    Dim xlApp As Object
    Dim xlWB As Object
    
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    
    ' 打开包含ReplaceInDone宏的Excel文件（注意文件需为xlsm格式）
    Set xlWB = xlApp.Workbooks.Open("C:\你的文件路径\带宏的文件.xlsm")
    
    ' 调用Excel中的宏，确保宏名称拼写正确
    xlApp.Run "ReplaceInDone"
    
    xlWB.Save
    xlWB.Close
    xlApp.Quit
    
    Set xlWB = Nothing
    Set xlApp = Nothing
End Sub

注意事项 #

• 替换代码中的文件路径为实际Excel文件路径，启用宏的文件需使用.xlsm后缀
• 后期绑定（CreateObject）无需在Word中引用Excel对象库，兼容性更强；若使用早期绑定（引用Microsoft Excel xx.x Object Library），可直接使用xlPart等常量，无需用数值替代
• 避免使用Select/Selection，直接操作对象更高效且不易出错

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