Как использовать не ActiveX контроллеры контента в VBA для Microsoft Word

Question

Я пытаюсь найти способ использовать контроллеры контента non-activeX в Microsoft word и создать для них макрос VBA. Например, поле со списком. Я не могу понять, как их вызывать в моем скрипте VBA, так как каждый раз, когда я получаю ошибку времени выполнения 424. Я назвал поле со списком в его свойствах, но, похоже, оно не оказывает такого же влияния, как это делает для поля со списком ActiveX. Должно быть, я что-то упускаю очень легко. Любая помощь очень ценится. Я поместил пример кода ниже;

Private Sub Document_open()  'Auto Run Macros Upon Opening of this specific doc


Call ComboBox1Additems
Call ComboBox2Additems
Call ComboBox3Additems
Call ComboBox4Additems
Call ComboBox5Additems
Call ComboBox6Additems
Call ComboBox7Additems
Call ComboBox12_Change


End Sub

 Private Sub ComboBox1_Change() 'Running through possible ComboBox Values and Updating the Corrosoponding Text Box



If ComboBox1.Value = "TMS backup" Then
    TextBox1.Value = "The TMS installation directory, settings directory and the database was backed up before the update was performed"

    ElseIf ComboBox1.Value = "TMS installation" Then
    TextBox1.Value = "Installation of version 1.17.X.19XXX performed"

    ElseIf ComboBox1.Value = "TMS update" Then
    TextBox1.Value = "Update from version 1.16.X.XXXXX to version 1.17.X.19XXX performed"

    ElseIf ComboBox1.Value = "Tool presetter update" Then
    TextBox1.Value = "Update from version 1.16.X.XXXXX to version 1.17.X.19XXX performed"

    ElseIf ComboBox1.Value = "Database generated" Then
    TextBox1.Value = "Database structure created with version 1.17.0"

    ElseIf ComboBox1.Value = "article characteristic bar update" Then
    TextBox1.Value = "Update of DIN 4000 and (CAM) structure to version 2.2.0 (DIN) and X.X.X (CAM)"

    ElseIf ComboBox1.Value = "CAM-Interface installation" Then
    TextBox1.Value = "Installation of the version X.X.X and configuration of the (CAM) interface"

    ElseIf ComboBox1.Value = "CAM-Interface update" Then
    TextBox1.Value = "Updated the (CAM) interface to version X.X.X"

    ElseIf ComboBox1.Value = "WebService installation" Then
    TextBox1.Value = "Installation of version 1.1.116.2 and configuration of WebService performed"

    ElseIf ComboBox1.Value = "WebService update" Then
    TextBox1.Value = "Update of WebService to version 1.1.116.2 performed"

    ElseIf ComboBox1.Value = "CodeMeter initialized" Then
    TextBox1.Value = "Set up CodeMeter on the license server and the client machines"

    ElseIf ComboBox1.Value = "" Then
    TextBox1.Value = "Please make a drop down selection or manually fill out if not applicable"

    Else

    TextBox1.Value = "Please make a drop down selection or manually fill out if not applicable"


End If

End Sub

Sub ComboBox1Additems() 'Adding Items to ActiveX Control Combo Boxes
ComboBox1.Clear
ComboBox1.AddItem "TMS backup"
ComboBox1.AddItem "TMS installation"
ComboBox1.AddItem "TMS update"
ComboBox1.AddItem "Tool presetter update"
ComboBox1.AddItem "Database generated"
ComboBox1.AddItem "article characteristic bar update"
ComboBox1.AddItem "CAM-Interface installation"
ComboBox1.AddItem "CAM-Interface update"
ComboBox1.AddItem "WebService installation"
ComboBox1.AddItem "WebService update"
ComboBox1.AddItem "CodeMeter initialized"

End Sub


Sub ComboBox12_Change()
 ComboBox12.AddItem "Turkey"
 ComboBox12.AddItem "Chicken"
 ComboBox12.AddItem "Duck"
 ComboBox12.AddItem "Goose"
 ComboBox12.AddItem "Grouse"
End Sub

ComboBox # Additems () при вызове работает нормально, они указывают на выпадающие списки ActiveX. Combobox12_change () выдает ошибку Runtime error «424», объект требуется при запуске. Это «указание» на неактивный комбинированный список X.

Answer 1

Эти элементы управления называются ContentControls

Private Sub CommandButton1_Click()
Dim ccs As ContentControls,cc as ContentControl
Set ccs= Me.ActiveWindow.Document.ContentControls
For Each cc In ccs
  If cc.Title = "myTitle" Then
    MsgBox cc.DropdownListEntries(1)
  End If
Next
End Sub

При событии Document_open эти элементы управления могут быть не готовы.