Excel控制Word宏后期绑定导致wdStory代码执行失败问题

这个问题我之前也碰到过，核心原因是后期绑定下VBA无法识别Word的内置常量——当你不引用Microsoft Word对象库时，VBA不知道wdStory这类符号对应的具体数值，自然就会报错。下面给你两种可行的解决思路：

方法1：直接使用常量对应的数值 #

Word的内置常量本质都是固定的数值，你可以直接用数值替代常量名。比如wdStory对应的数值是6，把有问题的代码行替换成：

selWordSelection.HomeKey Unit:=6

如果需要用到其他Word常量，直接查对应数值即可，常用常量的数值都可以通过官方文档或调试工具获取。

方法2：手动定义所需常量 #

为了代码可读性更好，你可以在模块的顶部（所有过程之外）手动定义需要用到的Word常量，这样代码里依然可以用直观的常量名，和早期绑定的写法保持一致：

' 手动定义Word常用常量（按需添加）
Const wdStory As Integer = 6
Const wdFindContinue As Integer = 1
' 其他你需要用到的常量也可以在这里定义

优化后的完整代码示例 #

另外还要注意，你的SearchAndRemove过程里参数docWord的类型要和后期绑定保持一致，改成Object；同时建议尽量通过传入的docWord对象来获取Selection，而不是依赖全局的appWord，这样代码更健壮，避免全局对象带来的潜在问题：

主宏模块 #

Public appWord As Object
Sub MainSub()
    Set appWord = GetObject(, "Word.Application")
    If appWord Is Nothing Then
        Set appWord = CreateObject("Word.Application")
    End If
    ' 创建临时文件...
    Dim strTempWordFile As String
    strTempWordFile = "你的临时文件路径" ' 替换成实际路径
    Dim docWord As Object
    Set docWord = appWord.Documents.Open(strTempWordFile)
    ' 调用函数在Word文档中搜索并删除文本
    SearchAndRemove rgCell2.Text, docWord
End Sub

函数模块 #

' 手动定义需要的Word常量
Const wdStory As Integer = 6

Sub SearchAndRemove(ByVal strSearchWord As String, ByRef docWord As Object)
    Dim selWordSelection As Object
    Set selWordSelection = docWord.Application.Selection ' 通过docWord获取对应的Selection
    selWordSelection.HomeKey Unit:=wdStory ' 现在可以正常运行了
    ' 执行搜索与删除操作...
End Sub

这样调整后，不管是早期还是后期绑定，代码都能正常运行，也彻底避免了Word对象库版本差异的问题。

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