VBA Using Excel to Populate Word Content Controls

[richh]

I'm attempting to populate a Word.dotm document that has content control text boxes using Excel.

In Excel, I create the word objects and open the file, but I can't figure out how to actually access the controls.

In the Word doc's VBA, I can access them via

.SelectContentControlsByTitle("control").Item(1).Range.Text = "..."

but that doesn't work using an Object in Excel..

Here's the code I've tried in Excel:

Dim objWord         As Object
Dim objDoc          As Object
Dim objSelection    As Object
Dim ctrl            As Word.ContentControl 'Not an Excel type

Set objWord = CreateObject("Word.Application")

Set objDoc = objWord.Documents.Open(ThisWorkbook.Path & "\MyDoc.dotm")

objWord.Visible = True

Set objSelection = objWord.Selection

'Runtime Error 438: Object doesn't support this property or method.
'(This is running in Excel. It works in Word though)
objDoc.SelectContentControlsByTitle("control").Item(1).Range.Text = "..."       

'Can't enter the loop as the early binding doesn't work
For Each ctrl In objDoc.contentcontrols
    If ctrl.Title = "control" Then
        ctrl.Range.Text = "!"
    End If
Next ctrl

 

[richh]

I didn't have the Word 16.0 library referenced. Nevermind!