在窗體檢查中生成一個空白表格Word 2003

在Word 2003中，我試圖創建一個表單，如果填寫表單的人需要它們並單擊一個複選框來說明（可以單擊此處查看其他表格）。我已經嘗試過一個表單域，它在進入時運行一個宏，但似乎沒有工作。有沒有更好的方法來創建一個可以在用戶需要時在Word中添加表格的表單？在窗體檢查中生成一個空白表格Word 2003

從本質上講是這樣的（作爲一個不相關的，雖然在功能上準確的例子）：

http://pixiurl.com//image/5o2r751t%5FExample.png（對不起，我不能發表圖片）

的「點擊這裏」被點擊時是生成另一個完全一樣的。

此外，我需要確保新表上的字段保持空白，即使它們被填充在原件上，所以我不能使用複製和粘貼方法。

任何幫助將不勝感激。

來源

2009-12-15 Liam Shaw

從「Control Toolbox」創建一個包含一些文本和複選框的文檔;在要插入表格的位置添加一個名爲「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

如果窗體被鎖定，您可能需要通過解除包圍的IF-ELSE-ENDIF /保護聲明

來源

2010-01-13 19:15:22 MikeD

在窗體檢查中生成一個空白表格Word 2003

回答

相關問題