Необходимо упростить работу с объектами Range (Надо в отдельные яйчейки таблицы вставить Текстовые поля формы), для этого я решил создать процедуру (шаблон работы), упрощающую работу с ними
Не могу понять что неправильно, выдает след.-ую ошибку
"Оbject variable or With variable not set"
Sub TbFFields( a As Object, b, c, d As Integer) Set a = ActiveDocument.Tables(b).Cell(c, d).Range a.FormFields.Add(Range:=a, Type:=wdFieldFormTextInput) = "" End Sub
Private Sub ToggleButton1_Click() if ToggleButton1.Value = True Then ... Call TbFFields (Ran85, 5,8,5) ... end if end sub
|