使用VBA从Excel打开Word文档报运行时错误424问题求助

运行时错误424「要求对象」的核心原因是你在Excel VBA环境中直接调用了仅属于Word对象模型的Documents集合，Excel默认未加载Word对象库，无法识别该对象，才会触发对象缺失报错。
Documents是Word应用的专属对象集合，仅在Word VBA环境中可以直接调用，跨应用（Excel调用Word）操作时必须先绑定Word应用实例，再通过实例调用下属方法。

分两种绑定方式实现，按需选择：

方式一：后期绑定（无需提前引用库，兼容性更好） #

直接使用通用对象类型声明，无需手动加载Word库，代码可直接运行：

Sub OpenDoc()
    Dim strFile As String
    Dim wordApp As Object
    Dim wordDoc As Object

    strFile = "C:\Users\risha\Downloads\english_2850_paper.docx"
    ' 文件不存在直接退出
    If Dir(strFile) = "" Then Exit Sub

    ' 优先获取已运行的Word实例，避免重复启动进程
    On Error Resume Next
    Set wordApp = GetObject(, "Word.Application")
    If Err.Number <> 0 Then
        Set wordApp = CreateObject("Word.Application")
    End If
    On Error GoTo 0 ' 恢复默认错误捕获

    ' 通过Word实例打开文档
    Set wordDoc = wordApp.Documents.Open(strFile)
    wordApp.Visible = True ' 显示Word窗口，默认启动为隐藏状态

    ' 后续如果需要关闭文档/退出Word可添加以下代码
    ' wordDoc.Close SaveChanges:=wdSaveChanges
    ' wordApp.Quit
    ' 释放对象避免后台残留进程
    ' Set wordDoc = Nothing
    ' Set wordApp = Nothing
End Sub

方式二：前期绑定（有代码补全提示，适合开发阶段） #

• 先在VBA编辑器顶部菜单栏点击「工具」-「引用」，勾选列表中的「Microsoft Word xx.x Object Library」（xx.x为你本地安装的Office版本号）
• 将代码中的对象声明替换为强类型即可：

Dim wordApp As Word.Application
Dim wordDoc As Word.Document

其余逻辑和后期绑定代码一致。

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