VBA Word 365：如何将活动文档表格数据导入同文档列表框？

一、先解决ListBox1.AddItem "Apple"不显示的问题 #

分两种场景处理：

1. 列表框是**用户窗体（UserForm）**内的控件 #

• 必须确保窗体已加载/显示后再执行添加操作，示例代码：

  Sub TestAddItem()
      UserForm1.Show vbModeless ' 先显示窗体，vbModal为模态，vbModeless为非模态
      UserForm1.ListBox1.AddItem "Apple"
  End Sub
  

• 核对控件名称：右键窗体里的列表框，查看属性窗口的Name是否确实为ListBox1，避免拼写错误。

2. 列表框是文档内的内容控件 #

文档中的列表框属于ContentControl对象，不能直接用ListBox.AddItem，需改用内容控件的专属方法：

Sub AddToDocListBox()
    Dim cc As ContentControl
    ' 假设目标是文档中第一个下拉列表内容控件，可按索引/标题定位
    Set cc = ActiveDocument.ContentControls(1)
    ' 清空原有选项（可选操作）
    cc.DropdownListEntries.Clear
    ' 添加新选项
    cc.DropdownListEntries.Add "Apple"
End Sub

二、从Word表格提取内容填充列表框 #

Word没有像Excel那样的RowSource属性直接绑定表格，需通过VBA遍历表格单元格实现填充，以下是两种场景的实现代码：

场景1：填充用户窗体的ListBox #

假设目标是文档中第一个表格，提取第一列内容填充：

Sub FillListBoxFromTable()
    Dim tbl As Table
    Dim row As Row
    Dim targetForm As UserForm1
    
    Set targetForm = New UserForm1
    Set tbl = ActiveDocument.Tables(1)
    
    ' 清空列表框原有内容
    targetForm.ListBox1.Clear
    
    ' 遍历表格行（若要包含表头则从第1行开始，否则从第2行）
    For Each row In tbl.Rows
        ' 去除Word单元格末尾的隐藏结束符，避免显示多余空白
        Dim cellContent As String
        cellContent = Left(row.Cells(1).Range.Text, Len(row.Cells(1).Range.Text) - 2)
        targetForm.ListBox1.AddItem cellContent
    Next row
    
    targetForm.Show vbModeless
End Sub

场景2：填充文档内的内容控件列表框 #

Sub FillContentControlFromTable()
    Dim tbl As Table
    Dim row As Row
    Dim targetCC As ContentControl
    
    ' 按内容控件的标题定位，替换为你的控件标题
    Set targetCC = ActiveDocument.ContentControls("ProductList")
    Set tbl = ActiveDocument.Tables(1)
    
    targetCC.DropdownListEntries.Clear
    
    For Each row In tbl.Rows
        Dim cellText As String
        cellText = Left(row.Cells(1).Range.Text, Len(row.Cells(1).Range.Text) - 2)
        targetCC.DropdownListEntries.Add cellText
    Next row
End Sub

关键说明 #

• Word用户窗体的ListBox确实没有RowSource属性，必须通过代码遍历或数组赋值填充，并非只能用字符串，也可将表格内容存入数组后用ListBox1.List = myArray一次性赋值。
• 文档内的内容控件列表框和用户窗体的ListBox是完全不同的对象，调用方法差异较大，需注意区分。

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