批量修改Word中多个ContentControl下拉列表项的方法求助

一、VBA一键替换方案（无需复杂修改） #

直接使用以下代码，你仅需修改开头的oldOptions和newOptions数组，将原选项（A-F）和目标选项（1-6）对应填入，运行宏即可完成替换：

Sub ReplaceDropdownOptions()
    ' 定义原选项与新选项，位置一一对应
    Dim oldOptions As Variant
    Dim newOptions As Variant
    oldOptions = Array("A", "B", "C", "D", "E", "F") ' 替换为你文档中原有的选项
    newOptions = Array("1", "2", "3", "4", "5", "6") ' 替换为你需要的新选项
    
    Dim cc As ContentControl
    Dim selectedIndex As Integer
    
    ' 遍历文档中所有下拉列表类型的内容控件
    For Each cc In ActiveDocument.ContentControls
        If cc.Type = wdContentControlDropdownList Then
            ' 记录当前选中选项的索引位置
            selectedIndex = cc.DropdownListEntries.Item(cc.Range.Text).Index
            
            ' 清空原有选项
            cc.DropdownListEntries.Clear
            
            ' 按顺序添加新选项
            For i = LBound(newOptions) To UBound(newOptions)
                cc.DropdownListEntries.Add newOptions(i)
            Next i
            
            ' 恢复原选中位置的选项
            cc.DropdownListEntries(selectedIndex).Select
        End If
    Next cc
End Sub

使用步骤： #

1. 打开目标Word文档，按下Alt + F11打开VBA编辑器
2. 右键左侧项目栏→插入→模块，新建一个代码模块
3. 将上述代码粘贴进去，确认oldOptions和newOptions的内容与你的实际情况匹配
4. 按下F5运行宏，或回到Word界面，通过「开发工具→宏」选择ReplaceDropdownOptions执行

二、非VBA手动批量处理方案（适合控件数量较少的情况） #

如果文档中的下拉控件数量不多，可以通过以下步骤批量操作：

• 选中任意一个下拉控件，点击「开始→编辑→选择→选择格式相似的文本」，一次性选中所有同类型的下拉控件
• 右键选中的控件→「属性」，在「下拉列表属性」面板中删除原有选项，按顺序添加新选项1-6
• 批量修改后，所有控件的原选中位置会自动对应新选项（比如原选中第4个选项，修改后仍选中第4个新选项）

三、解决「值与名称同步」的问题 #

Word默认下拉列表的显示名称与值是同步的，要分开设置需修改VBA代码中添加选项的部分，指定独立的值：
将代码里添加新选项的语句替换为：

cc.DropdownListEntries.Add newOptions(i), "自定义值" & i ' 第二个参数为独立设置的值，可按需修改

修改后，控件的显示名称为newOptions中的内容，值为你自定义的内容，二者不再同步。

内容的提问来源于stack exchange，提问作者e-shirt