看起来你踩了两个常见的坑：一是选错了触发事件，二是用了Content Control的方法去操作Legacy控件——这俩完全不是一套体系哦！我来帮你一步步搞定这个联动需求。

为什么之前的代码没效果？ #

• Document_New()是新建文档时才会触发的事件，你点击复选框的时候根本不会执行这段代码，自然看不到效果
• 你用的是Legacy旧版表单控件，但SelectContentControlsByTag()是针对Word内容控件（Content Control）的方法，完全不适用于旧版控件

正确实现步骤 #

第一步：给Legacy复选框绑定点击宏 #

旧版控件的点击事件需要通过绑定宏来触发，操作如下：

1. 右键你那个用来触发的复选框（比如"Development"），选择**「Assign Macro...」**
2. 在弹出的窗口里输入一个宏名称（比如ToggleDevOptions），点击**「New」**，这会直接打开VBA编辑器并生成宏的框架
3. 重复这个操作，给"Documentation"复选框绑定另一个宏（比如ToggleDocOptions）

第二步：编写针对Legacy控件的VBA代码 #

Legacy复选框需要通过FormFields对象来访问，代码逻辑要对应你的需求：

Sub ToggleDevOptions()
    ' 获取Development复选框的勾选状态
    Dim isDevChecked As Boolean
    isDevChecked = ActiveDocument.FormFields("dev").CheckBox.Value
    
    ' 勾选Development时，把对应选项设为YES并禁用NO
    If isDevChecked Then
        ActiveDocument.FormFields("yesOption").CheckBox.Value = True
        ActiveDocument.FormFields("noOption").CheckBox.Value = False
        ActiveDocument.FormFields("noOption").Enabled = False
    Else
        ' 取消勾选时，恢复NO选项的可用状态
        ActiveDocument.FormFields("noOption").Enabled = True
    End If
End Sub

Sub ToggleDocOptions()
    ' 获取Documentation复选框的勾选状态
    Dim isDocChecked As Boolean
    isDocChecked = ActiveDocument.FormFields("doc").CheckBox.Value
    
    ' 勾选Documentation时，把对应选项设为NO并禁用YES
    If isDocChecked Then
        ActiveDocument.FormFields("noOption").CheckBox.Value = True
        ActiveDocument.FormFields("yesOption").CheckBox.Value = False
        ActiveDocument.FormFields("yesOption").Enabled = False
    Else
        ' 取消勾选时，恢复YES选项的可用状态
        ActiveDocument.FormFields("yesOption").Enabled = True
    End If
End Sub

关键注意事项 #

• 代码里的"dev"、"doc"、"yesOption"这些是Legacy控件的Name属性值，不是Tag！右键控件选「Properties」就能看到Name字段，一定要和代码里的一致
• 如果不需要禁用，只需要勾选/取消勾选，去掉Enabled = False/True的代码即可
• 测试前记得保存文档为.docm格式（启用宏的Word文档），否则宏无法运行

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