Word 2013如何插入3-state CheckBox？开发者选项卡仅提供2-state选项

没问题，Word 2013原生的表单控件里确实没有自带的三态复选框，但用VBA完全可以搞定这个需求，我给你两种实用的实现方案：

方案一：用ActiveX控件模拟三态 #

这种方式直观，适合需要快速交互的场景：

1. 打开开发者选项卡，点击「插入」→ 选择「ActiveX控件」里的「复选框（ActiveX控件）」，在文档里插入一个。
2. 右键这个复选框，选择「查看代码」，打开VBA编辑器。
3. 替换默认代码为以下内容（注意把CheckBox1改成你控件的实际名称）：

Private Sub CheckBox1_Click()
    ' 用静态变量记录当前状态：0=未选中，1=选中，2=中间态
    Static currentState As Integer
    currentState = currentState + 1
    If currentState > 2 Then currentState = 0
    
    Select Case currentState
        Case 0
            Me.CheckBox1.Value = False
            Me.CheckBox1.BackColor = vbWhite ' 恢复默认背景
            Me.CheckBox1.Caption = "未选中"
        Case 1
            Me.CheckBox1.Value = True
            Me.CheckBox1.BackColor = vbWhite
            Me.CheckBox1.Caption = "选中"
        Case 2
            Me.CheckBox1.Value = True
            ' 用灰色背景模拟中间态视觉效果
            Me.CheckBox1.BackColor = RGB(200, 200, 200)
            Me.CheckBox1.Caption = "中间态"
    End Select
End Sub

4. 回到文档，点击「开发者选项卡」→「设计模式」退出设计模式，现在点击复选框就能循环切换三种状态了。

方案二：用内容控件结合VBA实现 #

这种方式更适合正式文档，外观更统一：

1. 打开开发者选项卡，点击「控件」→「内容控件」里的「复选框内容控件」，插入到文档中。
2. 按Alt+F11打开VBA编辑器，右键你的文档→「插入」→「模块」，粘贴以下代码：

Sub ToggleTriStateContentControl()
    Dim targetCC As ContentControl
    
    ' 获取当前选中的内容控件（确保操作前选中目标复选框）
    On Error Resume Next
    Set targetCC = Selection.ContentControls(1)
    On Error GoTo 0
    
    If targetCC Is Nothing Or targetCC.Type <> wdContentControlCheckBox Then
        MsgBox "请选中一个复选框内容控件！", vbExclamation
        Exit Sub
    End If
    
    ' 根据Tag判断当前状态，切换逻辑
    Select Case targetCC.Tag
        Case "Unchecked" ' 未选中→选中
            targetCC.Checked = True
            targetCC.Tag = "Checked"
            targetCC.Range.Font.Color = vbBlack
        Case "Checked" ' 选中→中间态
            targetCC.LockContentControl = True ' 锁定防止直接修改
            targetCC.Range.Font.Color = RGB(128, 128, 128) ' 灰色字体区分
            targetCC.Tag = "Indeterminate"
        Case Else ' 中间态→未选中
            targetCC.LockContentControl = False
            targetCC.Checked = False
            targetCC.Range.Font.Color = vbBlack
            targetCC.Tag = "Unchecked"
    End Select
End Sub

3. 回到文档，选中刚才插入的复选框内容控件，点击「开发者选项卡」→「宏」，选择ToggleTriStateContentControl并点击「运行」，就能切换状态。如果想更方便，可以给这个宏绑定到快速访问工具栏，或者右键内容控件添加自定义按钮触发。

注意事项 #

• 保存文档时要选择「启用宏的Word文档（.docm）」格式，否则VBA代码会失效。
• 如果需要分发文档，要提醒接收方启用宏才能正常使用三态功能。

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