使用 VBA 在 Word 中隐藏表格

Question

我在 Word 文档中有一系列表格，根据情况可能需要填写。 为了使文档看起来干净，我希望允许用户使用复选框来确定关联的表是否相关。 单击复选框后，整个表格应消失。 我查看了一些可用的解决方案，但没有一个提供一致的结果。

我尝试了以下方法：

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

我将“测试”值分配给有问题的表。 当我运行宏时，表格将消失。

但是，下一步是在单击“内容控制”复选框时让表格消失。 我不确定如何构建它

Answer 1

在玩了很多之后，我得到了它的工作。 为可能想要使用此功能的其他人发帖：

Private Sub Test_Checkbox_Click()

If Test_Checkbox.Value = True Then

ActiveDocument.Bookmarks("Test_table").Range.Tables(1).Range.Font.Hidden = True

Else

ActiveDocument.Bookmarks("Test_table").Range.Tables(1).Range.Font.Hidden = False

End If

End Sub

确保使用 ActiveX 复选框控件。 我在整个 Word 模板中多次使用此代码，只是分配了几个不同的书签