如何实现Word中ContentControl下拉框的联动设置特定选项？

核心思路 #

当某个下拉型内容控件（即你创建的ComboBox）变更后，遍历文档中所有标题为item1到item5的下拉控件，排除当前触发变更的控件，将其余控件统一设置为你指定的特定选项。

完整VBA代码 #

替换你现有的Document_ContentControlOnExit事件代码为以下内容：

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    ' 仅处理下拉型内容控件，避免误操作其他类型控件
    If ContentControl.Type <> wdContentControlDropdownList Then Exit Sub
    
    ' 定义要设置的特定选项文本，可根据需求修改
    Const TargetOption As String = "默认选项"
    
    ' 所有目标下拉框的标题集合
    Dim targetTitles As Variant
    targetTitles = Array("item1", "item2", "item3", "item4", "item5")
    
    Dim cc As ContentControl
    Dim title As Variant
    For Each title In targetTitles
        ' 跳过当前触发变更的控件
        If title <> ContentControl.Title Then
            Set cc = ActiveDocument.SelectContentControlsByTitle(title)(1)
            ' 设置为指定选项，加入错误处理避免选项不存在时报错
            On Error Resume Next
            cc.DropdownListEntries.Item(TargetOption).Select
            On Error GoTo 0
        End If
    Next title
End Sub

关键细节说明 #

• 修改特定选项：把TargetOption常量的值改成你需要固定设置的选项文本即可；如果想用选项的位置索引（比如第一个选项），可以把cc.DropdownListEntries.Item(TargetOption).Select替换为cc.DropdownListEntries(1).Select。
• 控件类型校验：加入wdContentControlDropdownList判断，确保代码只作用于下拉框，不会干扰文档里的文本框、复选框等其他内容控件。
• 错误处理：On Error Resume Next用于避免因指定选项不存在导致代码中断，你也可以根据需求替换为更严谨的逻辑（比如先遍历下拉选项确认目标存在）。

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