Vba 在Word 2003中生成窗体检查的空白表

在Word2003中，我试图创建一个表单，如果填写表单的人需要，可以生成其他条目，并单击一个复选框（对于其他表格，请单击此处）。我尝试了一个表单字段，它在条目上运行宏，但似乎不起作用。有没有一种更优雅的方法来制作一个表单，可以根据用户的需要在Word中添加一个表

本质上是这样的（作为一个不相关但功能准确的例子）：

（很抱歉，我无法发布图片）

单击“单击此处”时，会生成另一个完全相同的

此外，我需要确保新表中的字段保持空白，即使它们是在原始表中填写的，这样我就不能使用复制粘贴方法

---

任何帮助都将不胜感激。

从“控制工具箱”中创建一个包含一些文本和复选框的文档；在要插入表格的位置添加一个名为“Here”的书签；添加更多文本

为控制工具箱输入以下代码：

Private Sub CheckBox1_Click()
    If Me.CheckBox1 Then
        Selection.GoTo What:=wdGoToBookmark, Name:="Here"
        ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
        With Selection.Tables(1)
            If .Style <> "Table Grid" Then
                .Style = "Table Grid"
            End If
            .ApplyStyleHeadingRows = True
            .ApplyStyleLastRow = True
            .ApplyStyleFirstColumn = True
            .ApplyStyleLastColumn = True
        End With
    Else
        Selection.GoTo What:=wdGoToBookmark, Name:="Here"
        With Selection.Tables(1)
            .Delete
        End With
    End If
End Sub

专用子复选框1\u单击（）
如果是我，请勾选方框1
Selection.GoTo What:=wdGoToBookmark，Name:=“此处”
ActiveDocument.Tables.Add范围：=Selection.Range，NumRows:=2，NumColumns:=_
3，DefaultTableBehavior:=wdWord9TableBehavior，AutoFitBehavior:=_
自动安装
有选择。表（1）
如果.样式为“表格网格”，则
.Style=“表格网格”
如果结束
.ApplyStyleHeadingRows=真
.ApplyStyleLastRow=True
.ApplyStyleFirstColumn=True
.ApplyStyleLastColumn=True
以
其他的
Selection.GoTo What:=wdGoToBookmark，Name:=“此处”
有选择。表（1）
.删除
以
如果结束
端接头

如果窗体被锁定，您可能需要用Unprotect/Protect语句包围If-ELSE-ENDIF