Word VBA中Option buttons控制问题求助：YES/NO控制按钮Enabled状态

错误原因排查 #

你遇到的「Object doesn't support this property or method」错误，基本是因为混淆了Word中两种不同类型的选项按钮（ActiveX控件/表单控件）的调用逻辑，或者控件名称拼写不匹配、控件损坏导致。以下分两种控件类型给出针对性解决代码：

场景1：使用ActiveX选项按钮（推荐，属性更灵活） #

前期准备 #

1. 右键YES/NO按钮 → 「属性」，设置：
   • YES按钮命名为optYes，NO按钮命名为optNo，且两者GroupIndex设为相同值（比如0），确保互斥
   • 三个独立按钮分别命名为optIndep1、optIndep2、optIndep3，各自设不同的GroupIndex（比如1/2/3），实现独立选中

绑定点击事件代码 #

双击YES按钮，进入VBA编辑器，粘贴以下代码：

Private Sub optYes_Click()
    '启用三个独立按钮
    optIndep1.Enabled = True
    optIndep2.Enabled = True
    optIndep3.Enabled = True
End Sub

双击NO按钮，粘贴以下代码：

Private Sub optNo_Click()
    '禁用三个独立按钮
    optIndep1.Enabled = False
    optIndep2.Enabled = False
    optIndep3.Enabled = False
End Sub

场景2：使用表单控件（Forms选项按钮） #

前期准备 #

1. 右键控件 → 「指定宏」，给YES按钮绑定OptYes_Click宏，NO按钮绑定OptNo_Click宏
2. 右键控件 → 「设置控件格式」→ 「控件」，记录三个独立按钮的名称（比如「Option Button 3」「Option Button 4」「Option Button 5」）

宏代码实现 #

打开VBA编辑器，插入模块后粘贴以下代码：

Sub OptYes_Click()
    Dim targetDoc As Document
    Set targetDoc = ActiveDocument
    
    '启用三个独立按钮
    With targetDoc.Shapes
        .Item("Option Button 3").ControlFormat.Enabled = True
        .Item("Option Button 4").ControlFormat.Enabled = True
        .Item("Option Button 5").ControlFormat.Enabled = True
        
        '设置独立分组，确保可单独选中
        .Item("Option Button 3").ControlFormat.GroupIndex = 1
        .Item("Option Button 4").ControlFormat.GroupIndex = 2
        .Item("Option Button 5").ControlFormat.GroupIndex = 3
    End With
End Sub

Sub OptNo_Click()
    Dim targetDoc As Document
    Set targetDoc = ActiveDocument
    
    '禁用三个独立按钮
    With targetDoc.Shapes
        .Item("Option Button 3").ControlFormat.Enabled = False
        .Item("Option Button 4").ControlFormat.Enabled = False
        .Item("Option Button 5").ControlFormat.Enabled = False
    End With
End Sub

额外注意事项 #

• 保存文档时需选择.docm格式（启用宏的文档），否则代码会失效
• 若仍报错，检查控件名称是否与代码中完全一致，或删除控件重新插入（解决控件损坏问题）

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