Word 2016 VBA问题：用户窗体复选框值同步至文档复选框

原代码问题分析 #

你原来的代码逻辑完全错误——试图通过书签定位文本范围，再用文本值设置复选框的选中状态，这根本无法控制文档中的复选框控件。必须直接操作文档内的复选框对象，设置其专属的选中属性。

用户原尝试代码片段（翻译后）：

Private Sub ToggleButtonOK_Click()

Dim COTTPower1 As Range
If Checkbox1 = True Then
    Set COTTPower1 = ActiveDocument.Bookmarks(True).Range ' 错误：书签名称不能是True/False，逻辑混乱
Else
    Set COTTPower1 = ActiveDocument.Bookmarks(False).Range
End If

COTTPower1.Text = Me.CheckBox1.Value ' 错误：复选框不是文本，用Text属性无法设置选中状态
 .
 .
 .        
      {重复上述复选框代码，仅变量名不同}
 .
 .
 .

正确解决方案 #

Word中的复选框分两种类型，对应不同的代码实现：

情况1：文档使用「内容控件复选框」（Word 2007及以后版本常用） #

1. 先给文档里的每个复选框内容控件设置唯一标题（比如对应UserForm的Checkbox1，把文档控件标题设为chkDoc1，以此类推）
2. 在UserForm的OK按钮事件中添加以下代码：

Private Sub ToggleButtonOK_Click()
    ' 同步UserForm复选框到文档内容控件
    With ActiveDocument
        ' 第一组复选框（对应UserForm的Checkbox1-3）
        .ContentControls("chkDoc1").Checked = Me.CheckBox1.Value
        .ContentControls("chkDoc2").Checked = Me.CheckBox2.Value
        .ContentControls("chkDoc3").Checked = Me.CheckBox3.Value
        
        ' 第二组复选框（对应UserForm的Checkbox4-6）
        .ContentControls("chkDoc4").Checked = Me.CheckBox4.Value
        .ContentControls("chkDoc5").Checked = Me.CheckBox5.Value
        .ContentControls("chkDoc6").Checked = Me.CheckBox6.Value
    End With
    
    ' 这里保留你原来的文本字段填充代码
    ' ...
    
    Unload Me ' 关闭UserForm
End Sub

情况2：文档使用「旧式表单域复选框」（Word 2003及以前版本或启用旧式表单） #

1. 给文档里的每个表单域复选框设置唯一名称（比如对应UserForm的Checkbox1，把表单域名称设为chkField1）
2. 使用以下代码同步状态：

Private Sub ToggleButtonOK_Click()
    ' 同步UserForm复选框到文档旧式表单域
    With ActiveDocument
        ' 第一组复选框
        .FormFields("chkField1").CheckBox.Value = Me.CheckBox1.Value
        .FormFields("chkField2").CheckBox.Value = Me.CheckBox2.Value
        .FormFields("chkField3").CheckBox.Value = Me.CheckBox3.Value
        
        ' 第二组复选框
        .FormFields("chkField4").CheckBox.Value = Me.CheckBox4.Value
        .FormFields("chkField5").CheckBox.Value = Me.CheckBox5.Value
        .FormFields("chkField6").CheckBox.Value = Me.CheckBox6.Value
        
        ' 如果需要保护表单防止修改，可添加以下代码（可选）
        ' .Protect Type:=wdAllowOnlyFormFields, NoReset:=True
    End With
    
    ' 文本字段填充代码
    ' ...
    
    Unload Me
End Sub

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