VB Excel-使用Excel从VB打开word文档时，我得到一个'；变量未定义'；尝试使用ActiveDocument时出错

我需要从Excel打开Word文档，并用Excel电子表格中的文本替换Word文档文本框中的文本

我用Word录制了一个宏，它说要使用

ActiveDocument

，但是当我试图在Excel中的代码中使用它时，我得到一个

变量未定义错误

这是我的密码-

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

objWord.Documents.Open "C:\Users\kmccorma\Desktop\ReportPage.doc"

ActiveDocument.Shapes("Text Box 12").Select

我尝试了objWord.Shapes，但我得到一个错误，说对象不支持此属性

我可以看到Shapes属性在

ActiveChart

中可用，我是否需要使用

ActiveChart

执行某些操作才能使其正常工作

---

对VB来说还是比较新的，所以任何帮助都将不胜感激。

这是因为Excel无法识别什么是

ActiveDocument

。我建议使用对象。看看这个例子

Dim objWord As Object, objDoc As Object

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

Set objDoc = objWord.Documents.Open("C:\Users\kmccorma\Desktop\ReportPage.doc")

With objDoc.Shapes("Text Box 12")
    '~~> Do Something
    '.Select
End With

---

您好，我刚刚发现我没有选择Microsoft Word库，问题没有解决。只有当您提前绑定时，否则当您延迟绑定时，您将不得不使用我在下面给出的代码。