Создать пустую таблицу при проверке формы в Word 2003

Question

В Word 2003 я пытаюсь создать форму, которая может генерировать дополнительные записи, если лицо, заполняющее формы, требует их и нажимает на флажок с указанием (для дополнительных таблиц нажмите здесь). Я попытался поле формы, которая запускает макрос при входе, но это не похоже на работу. Есть ли более элегантный способ сделать форму, которая может добавить таблицу в Word, как того требует пользователь?

По сути, что-то вроде этого (как несвязанный, хотя и функционально точный пример):

http://pixiurl.com//image/5o2r751t%5FExample.png (Извините, я не могу опубликовать изображения)

Когда нажата кнопка «Нажми здесь», генерируется другая, точно такая же.

Также мне нужно убедиться, что поля в новой таблице остаются пустыми, даже если они были заполнены в оригинале, поэтому я не могу использовать метод копирования и вставки.

Любая помощь будет принята с благодарностью.

Answer 1

создать документ, содержащий текст и флажок из «Панели управления»; добавьте закладку «Здесь» в место, куда вы хотите вставить таблицу; добавить еще текст.

Введите следующий код для панели инструментов управления:

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 инструкциями Unprotect / Protect