如何在Excel VBA中不使用ActiveDocument打开嵌入的Word文档？

问题分析 #

你当前的代码通过xlVerbOpen打开嵌入的Word文档后，依赖ActiveDocument获取文档对象，但这种方式不可靠——如果有其他Word文档处于激活状态，就会导致赋值错误。而你尝试直接将Verb方法的结果赋值给变量的做法之所以报错424，是因为Verb方法仅执行打开操作，不返回任何对象，无法直接赋值。

解决方案 #

通过OLE对象的Object属性，可以直接获取嵌入文档的原生Word对象，完全不需要依赖ActiveDocument：

早期绑定（需引用Word对象库）

Dim oleObj As OLEObject
Dim wordDocTemp As Word.Document

' 获取工作表中的嵌入对象
Set oleObj = Worksheets(1).OLEObjects("TemplateDoc")
' 打开嵌入的Word文档
oleObj.Verb xlVerbOpen
' 直接获取Word文档对象
Set wordDocTemp = oleObj.Object

后期绑定（无需引用库，兼容性更强）

如果不想手动引用Word对象库，可以改用后期绑定：

Dim oleObj As OLEObject
Dim wordDocTemp As Object

Set oleObj = Worksheets(1).OLEObjects("TemplateDoc")
oleObj.Verb xlVerbOpen
Set wordDocTemp = oleObj.Object

原理说明 #

OLEObjects中的Object属性会返回嵌入对象的原生COM实例，对于嵌入的Word文档来说，这个实例就是Word.Document类型，直接通过它赋值就能安全获取目标文档，彻底避免激活状态变化带来的错误。

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