如何在Word中使用VBA通过同一数组填充10个ComboBox

嘿，我完全懂你的处境！作为非专业选手，能想着用共用数组来统一处理10个ComboBox，这个思路超靠谱的～我给你整理了一套简单易上手的Word VBA方案，完全贴合你的需求：

首先我们要在VBA里定义一个全局数组，这样所有ComboBox的事件都能调用它。操作如下：

1. 按Alt+F11打开VBA编辑器
2. 右键左侧的项目浏览器 -> 插入 -> 模块
3. 在新模块的最顶部粘贴这段代码：

' 全局共用数组，存储所有Test项和对应的颜色
Public comboData As Variant

接下来在文档打开时就把数组内容填好，避免每次点击都重复初始化：

1. 在项目浏览器里双击ThisDocument
2. 粘贴这段代码：

Private Sub Document_Open()
    ' 初始化数组，每一组是[Test项, 颜色项]，你可以根据需求修改内容
    comboData = Array( _
        Array("Test1", "Blue"), _
        Array("Test2", "Red"), _
        Array("Test3", "Green"), _
        Array("Test4", "Yellow"), _
        Array("Test5", "Purple"), _
        Array("Test6", "Orange"), _
        Array("Test7", "Pink"), _
        Array("Test8", "Brown"), _
        Array("Test9", "Gray"), _
        Array("Test10", "Black") _
    )
End Sub

为了避免给10个ComboBox写重复代码，我们写一个通用的填充函数，所有ComboBox都能调用：
回到刚才的标准模块，粘贴这段代码：

Sub FillComboBox(cbo As ComboBox)
    ' 先清空ComboBox原有内容
    cbo.Clear
    ' 设置显示2列
    cbo.ColumnCount = 2
    ' 设置列宽（单位是磅，可根据你的需求调整数值）
    cbo.ColumnWidths = "60;60"
    ' 遍历数组，把每一项添加到ComboBox的对应列
    Dim i As Integer
    For i = LBound(comboData) To UBound(comboData)
        cbo.AddItem comboData(i)(0) ' 第一列显示Test项
        cbo.Column(1, i) = comboData(i)(1) ' 第二列显示颜色项
    Next i
End Sub

现在给10个ComboBox分别添加OnClick事件：

1. 回到Word文档，点击开发工具 -> 设计模式（确保处于设计模式）
2. 右键第一个ComboBox -> 查看代码
3. 粘贴这段代码（注意把ComboBox1改成你实际的控件名称，如果没改名就是默认的ComboBox1~ComboBox10）：

Private Sub ComboBox1_Click()
    FillComboBox ComboBox1
End Sub

4. 重复这个操作，给ComboBox2到ComboBox10都添加类似的事件，只需要把代码里的ComboBox1改成对应的控件名就行。

• 如果你的Word没显示「开发工具」：点击文件 -> 选项 -> 自定义功能区，勾选右侧的「开发工具」即可。
• 测试的时候记得退出设计模式，否则点击ComboBox不会触发事件。

这样设置好之后，每次点击任意一个ComboBox，它就会自动用你的共用数组填充出两列内容啦～

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