Word VBA添加ActiveX ComboBox并填充值失败求助

你的问题核心在于ActiveX控件的引用逻辑，Word和Excel的对象模型差异很大，不能照搬Excel的Forms.Controls写法。下面是修正后的可行方案：

方法1：直接引用控件名称（最简方式） #

添加到文档的ActiveX控件会直接成为ThisDocument的成员，可直接通过名称调用：

Private Sub FillComboBox()
    With ComboBox1
        .Clear
        .AddItem "Option 1"
        .AddItem "Option 2"
        .AddItem "Option 3"
        .AddItem "Option 4"
    End With
End Sub

Private Sub Document_Open()
    FillComboBox
End Sub

方法2：通过InlineShapes/Shapes定位控件（适用于批量操作） #

如果需要遍历或精准定位控件，需通过InlineShapes（嵌入文本流的控件）或Shapes（浮动控件）获取：

Private Sub FillComboBox()
    Dim cb As ComboBox
    ' 控件为嵌入型时用InlineShapes，浮动型替换为Shapes
    Set cb = ThisDocument.InlineShapes("ComboBox1").OLEFormat.Object
    
    cb.Clear
    cb.AddItem "Option 1"
    cb.AddItem "Option 2"
    cb.AddItem "Option 3"
    cb.AddItem "Option 4"
End Sub

Private Sub Document_Open()
    FillComboBox
End Sub

关键注意事项 #

• 确认添加的是ActiveX控件，传统表单控件不支持AddItem方法。
• 打开文档时需启用宏，否则Document_Open事件不会触发。
• 若控件是浮动状态（未嵌入文本流），将代码中的InlineShapes替换为Shapes即可。

内容的提问来源于stack exchange，提问作者yesIamFaded