VB Excel-使用Excel從VB打開Word文檔時，嘗試使用ActiveDocument時出現“未定義變量”錯誤

Question

我需要從Excel打開Word文檔，並用Excel電子表格中的文本替換Word文檔中文本框中的文本。

我用Word錄制了一個宏，並說它使用ActiveDocument ，但是當我嘗試在Excel中的代碼中使用它時，出現一個Variable not defined error 。

這是我的代碼-

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，但收到一條錯誤消息，說“對象不支持此屬性”。

我可以看到ActiveChart提供了Shapes屬性，是否需要對ActiveChart進行一些操作才能使其正常工作？

對於VB來說還是相對較新的，所以任何幫助將不勝感激。

Answer 1

這是因為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