如何获取Word表格单元格中下拉列表选中项的关联值

你的核心问题是错误引用了单元格中的下拉内容控件，同时代码里还有变量声明、文本匹配、逻辑等细节问题，以下是修正后的完整代码，以及关键问题的说明：

修正后的代码 #

Private Sub CommandButton1_Click()
    Dim Tb1 As word.Table, Tb2 As word.Table ' 修正变量声明：每个变量单独指定类型
    Dim irow As Integer, icol As Integer, i As Integer, j As Integer, Tabnum As Integer
    Dim Strng As String
    Dim RowCount As Long, Responsevalue As Long
    Dim File1 As Document
    Dim ccMyContentControl As ContentControl
    Dim SurveyData As String ' 新增变量声明
    
    ' 选择并打开问卷文档
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Word Files", "*.docx; *.doc; *.docm", 1
        If .Show <> -1 Then Exit Sub ' 用户取消选择时退出
        
        SurveyData = .SelectedItems.Item(1)
        Set File1 = Documents.Open(SurveyData) ' 用变量保存文档对象，避免依赖ActiveDocument
        Tabnum = File1.Tables.Count
        
        For i = 1 To Tabnum
            ' 跳过表头行，从第2行开始遍历
            For irow = 2 To File1.Tables(i).Rows.Count
                ' 获取单元格文本并去除Word单元格的结束标记(Chr(13)+Chr(7))
                Strng = Left(File1.Tables(i).Cell(irow, 2).Range.Text, _
                           Len(File1.Tables(i).Cell(irow, 2).Range.Text) - 2)
                
                ' 获取单元格中的下拉内容控件
                Set ccMyContentControl = File1.Tables(i).Cell(irow, 2).ContentControls(1)
                
                ' 验证控件类型是否为下拉列表
                If ccMyContentControl.Type = wdContentControlDropdownList Then
                    Responsevalue = 99 ' 默认值：未匹配到选项
                    For j = 1 To ccMyContentControl.DropdownListEntries.Count
                        If ccMyContentControl.DropdownListEntries(j).Text = Strng Then
                            Responsevalue = ccMyContentControl.DropdownListEntries(j).Value
                            Exit For ' 找到匹配项后退出循环，避免无效遍历
                        End If
                    Next j
                    MsgBox "问题" & irow - 1 & "的关联值：" & Responsevalue
                Else
                    MsgBox "第" & i & "个表格第" & irow & "行第2列不是下拉控件"
                End If
            Next irow
        Next i
        
        File1.Close SaveChanges:=False ' 关闭文档，不保存修改
    End With
End Sub

关键错误修正说明 #

• 变量声明问题：VBA中Dim a, b As Integer只会让b是Integer类型，a是Variant，必须给每个变量单独指定类型，避免后续类型错误。
• 控件引用错误：原代码用wdContentControlDropdownList直接赋值给ContentControl变量是错误的，这是控件类型的枚举值，正确做法是通过Cell.ContentControls(1)获取单元格内的第一个内容控件（假设每个单元格只有一个下拉控件）。
• 文本匹配问题：Word单元格的Range.Text会自带Chr(13)+Chr(7)的结束标记，直接和下拉项的Text对比会不匹配，必须用Left截取掉最后两个字符。
• 逻辑优化：原代码中每次循环不匹配都会把Responsevalue设为99，会覆盖之前找到的正确值；修正后先设默认值99，找到匹配项后立即退出循环，提升效率。
• 文档对象管理：用变量File1保存打开的文档，避免依赖ActiveDocument，防止切换窗口时出现错误。

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