让我一步步帮你拆解问题根源，再给出针对性的优化方案：

一、初始Check_YES_Not过程失效的核心原因 #

你的这段代码有两个关键问题导致无法修改复选框状态：

1. 值传递而非引用操作：你把复选框的Checked属性值赋值给了check1、check2变量，之后修改check1 = True只是改变了变量的内存值，并没有直接操作复选框控件本身的属性——相当于你抄了一份开关状态，改抄件并不会影响原开关。
2. 参数未被正确利用：过程定义了tblNew参数，但代码里依然用了mytable。如果mytable不是全局变量，程序会找不到目标表格；就算是全局变量，也违背了过程的封装性，不利于复用。

二、修复后的Check_YES_Not过程 #

直接操作复选框控件的Checked属性，同时正确使用传入的表格参数，就能实现互斥逻辑：

Sub Check_YES_Not(tblNew As Table)
    Dim ccYes As ContentControl
    Dim ccNo As ContentControl
    
    ' 直接获取目标单元格里的复选框控件，增加存在性判断避免报错
    If tblNew.Cell(8, 2).Range.ContentControls.Count > 0 Then
        Set ccYes = tblNew.Cell(8, 2).Range.ContentControls(1)
    End If
    If tblNew.Cell(8, 3).Range.ContentControls.Count > 0 Then
        Set ccNo = tblNew.Cell(8, 3).Range.ContentControls(1)
    End If
    
    ' 实现互斥：选中YES则取消NO，选中NO则取消YES
    If Not ccYes Is Nothing And Not ccNo Is Nothing Then
        If ccYes.Checked = True Then
            ccNo.Checked = False
        ElseIf ccNo.Checked = True Then
            ccYes.Checked = False
        End If
    End If
End Sub

调用时直接传入你的表格对象即可：

Check_YES_Not mytable ' mytable是你创建的目标表格对象

三、Document_ContentControlOnExit事件的优化 #

你当前的事件代码存在两个明显问题：循环500次效率低下，且必须切换单元格才触发逻辑。这里给你一套更优雅的优化方案：

1. 先规范复选框的标签命名 #

创建复选框时，给每个表格的YES/NO设置关联标签，比如第n个表格的YES标签为"YES_Table_" & n，NO标签为"NO_Table_" & n——这样能快速定位对应的互斥控件，不用盲目循环：

Dim tableNum As Integer
tableNum = 1 ' 可根据实际场景动态赋值，比如表格的序号

For ii = 2 To 3
    Set rng = mytable.Cell(8, ii).Range
    rng.Collapse Direction:=wdCollapseStart ' 不用Select，直接操作Range更流畅
    With rng.ContentControls.Add(wdContentControlCheckBox)
        .Tag = IIf(ii = 2, "YES_Table_" & tableNum, "NO_Table_" & tableNum)
    End With
Next ii

2. 优化事件代码，精准触发互斥逻辑 #

去掉冗余的循环，根据当前控件的标签直接定位目标控件，同时解决"需切换单元格才生效"的小问题：

Private Sub Document_ContentControlOnExit(ByVal oCC As ContentControl, Cancel As Boolean)
    Dim targetTag As String
    Dim oCCTarget As ContentControl
    
    ' 只处理我们标记的YES/NO复选框，过滤无关控件
    If Not (Left(oCC.Tag, 3) = "YES" Or Left(oCC.Tag, 2) = "NO") Then
        Exit Sub
    End If
    
    ' 生成对应互斥控件的标签
    targetTag = IIf(Left(oCC.Tag, 3) = "YES", _
                    Replace(oCC.Tag, "YES", "NO"), _
                    Replace(oCC.Tag, "NO", "YES"))
    
    ' 获取目标控件并设置互斥状态，强制刷新解决切换生效问题
    Set oCCTarget = ActiveDocument.SelectContentControlsByTag(targetTag).Item(1)
    If Not oCCTarget Is Nothing And oCC.Checked = True Then
        oCCTarget.Checked = False
        ActiveDocument.ActiveWindow.ScreenRefresh ' 强制刷新界面，无需切换单元格即可看到效果
    End If
End Sub

四、额外的最佳实践建议 #

• 避免使用Selection对象：你的初始创建复选框代码用了rng.Select和Selection，这会导致界面闪烁，直接操作Range对象更高效且流畅（如上文中的创建代码）。
• 增加错误处理：比如判断ContentControls的数量，避免因控件缺失导致程序报错，让代码更健壮。

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