Word下拉内容控件：选中显示名后插入对应值的VBA实现求助

第一步：给下拉内容控件设置唯一标题 #

打开Word开发工具（没显示的话右键菜单栏勾选「开发工具」），选中下拉内容控件，在「开发工具」选项卡的「控件」组里点「属性」，给控件设置一个唯一标题（比如「员工选择」），务必记好这个标题。

第二步：将代码粘贴到ThisDocument模块 #

1. 按Alt+F11打开VBA编辑器
2. 在左侧「项目」窗格中找到你的文档，双击「ThisDocument」模块
3. 粘贴以下代码：

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    ' 替换成你设置的控件标题
    If ContentControl.Title = "员工选择" And ContentControl.Type = wdContentControlDropdownList Then
        ' 创建名称-数值映射字典
        Dim nameMap As Object
        Set nameMap = CreateObject("Scripting.Dictionary")
        
        ' 添加你的名称和对应数值，按此格式继续扩展
        nameMap("Shannon Thomson") = "ST"
        nameMap("John Doe") = "JD"
        nameMap("Jane Smith") = "JS"
        
        ' 替换选中内容为对应数值
        If nameMap.Exists(ContentControl.Range.Text) Then
            ContentControl.Range.Text = nameMap(ContentControl.Range.Text)
            ' 可选：锁定控件防止误改，不需要就删掉这行
            ContentControl.LockContentControl = True
        End If
    End If
End Sub

针对你之前问题的说明 #

1. CCValue/GetSelectedValue无效果：大概率是代码没绑定到正确事件，或没放在ThisDocument模块里
2. 弹窗版未插入：只写了弹窗代码，缺少ContentControl.Range.Text = ...这行替换文本的逻辑
3. 指定标题报错：要么是控件标题写错，要么是选中的不是下拉类型控件
4. ComboBox1_Change报错：Word的下拉内容控件不是窗体ComboBox，不能用这个事件，必须用Document_ContentControlOnExit

内容的提问来源于stack exchange，提问作者Shannon Thomson RMFL