如何通过Word内容控件复选框结合VBA实现表格隐藏切换？

问题背景 #

我在Word文档里有一系列表格，需要根据实际场景决定是否填写。为了保持文档整洁，想让用户通过内容控件复选框判断对应表格是否相关，点击复选框时切换表格的显示/隐藏状态。我已经写了一段VBA宏，也给目标表格设置了名为"Test"的书签，运行宏能实现表格隐藏，但不知道怎么把这个功能绑定到内容控件复选框的点击事件上。

已写的VBA宏代码：

Sub Hide()
    With ActiveDocument.Bookmarks("Test").Range.Tables(1).Range.Font
        If .Hidden = True Then
            .Hidden = False
        Else
            .Hidden = True
        End If
    End With
End Sub

解决方案 #

步骤1：插入并设置复选框内容控件 #

• 打开Word文档，点击「开发工具」选项卡（如果没显示，去「文件→选项→自定义功能区」里勾选「开发工具」）
• 点击「控件」组里的「复选框内容控件」，把它插入到你想放开关的位置
• 右键点击这个复选框，选「属性」，在「标题」里给它起个好认的名字（比如「显示/隐藏Test表格」），同时记住「标记」栏里的内容（比如ContentControl1，后面要用到）

步骤2：绑定复选框事件到VBA宏 #

• 按Alt + F11打开VBA编辑器
• 在左侧「工程资源管理器」里找到你的文档，右键点击→插入→模块，把你现有的宏粘贴进去，建议把宏名改成更清晰的ToggleTableVisibility，优化后的代码如下：

Sub ToggleTableVisibility()
    Dim targetTable As Table
    On Error Resume Next ' 避免书签不存在时报错
    Set targetTable = ActiveDocument.Bookmarks("Test").Range.Tables(1)
    On Error GoTo 0
    
    If Not targetTable Is Nothing Then
        ' 直接取反隐藏状态，简化代码
        targetTable.Range.Font.Hidden = Not targetTable.Range.Font.Hidden
    End If
End Sub

• 回到「工程资源管理器」，双击你的文档对象（比如ThisDocument），在右侧代码窗口的上方下拉框，分别选择「ContentControl」和「OnContentUpdating」，然后输入以下代码：

Private Sub Document_ContentControlOnContentUpdating(ByVal ContentControl As ContentControl)
    ' 匹配目标复选框的标记
    If ContentControl.Tag = "ContentControl1" Then ' 这里替换成你之前记住的标记内容
        ToggleTableVisibility ' 调用切换表格显示的宏
    End If
End Sub

步骤3：测试功能 #

回到Word文档，点击复选框，就能看到目标表格的显示/隐藏状态跟着切换了。

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