Sub NewRow ()
Тусклое tbl как таблица
Тусклый rw как рядок
Тусклый cl как клетка
Тусклое ffld как FormField
Пароль ActiveDocument.Unprotect '
Установите tbl = Selection.Tables (1)
'извлекайте EntryMacro от в настоящее время последней клетки
Установите cl = Selection.Cells (1)
Установите ffld = cl. Range.FormFields (1)
ffld.EntryMacro = ""
Установите rw = tbl. Rows.Add
Для каждого cl в rw. Клетки
Cl ActiveDocument.FormFields.Add. Ряд, wdFieldFormTextInput
Если cl.ColumnIndex = rw. Cells.Count после этого
Установите ffld = cl. Range.FormFields (1)
ffld.EntryMacro = «NewRow»
Закончитесь если
Следующий cl
wdAllowOnlyFormFields ActiveDocument.Protect, True ', пароль
Подводная лодка конца
|