VB Excel - Ao abrir um documento do Word a partir do VB com o Excel, recebo um erro 'Variável não definida' ao tentar usar o ActiveDocument - excel, excel-vba, ms-word, vba

Eu tenho um requisito para abrir um documento do Word do Excel e substituir o texto em uma caixa de texto no documento do Word com o texto da planilha do Excel.

Eu gravei uma Macro com Word e ele disse para usar ActiveDocument, no entanto, quando tento usar isso no meu código dentro do Excel, recebo um Variable not defined error.

Aqui está o meu código -

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

objWord.Documents.Open "C:UserskmccormaDesktopReportPage.doc"

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

Eu tentei objWord.Shapes, mas eu recebo um erro dizendo Objeto não suporta esta propriedade.

Eu posso ver a propriedade Shapes está disponível com ActiveChartpreciso fazer algo com ActiveChart para que isso funcione?

Ainda relativamente novo para o VB, qualquer ajuda seria muito apreciada.

Respostas:

Isso porque o Excel não reconhece o que ActiveDocument é. Eu recomendaria usar objetos. Veja este exemplo.

Dim objWord As Object, objDoc As Object

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

Set objDoc = objWord.Documents.Open("C:UserskmccormaDesktopReportPage.doc")

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