NewRow secondario ()
Tbl fioco come Tabella
Il RW fioco come fila
Cl fioco come cellula
Ffld fioco come FormField
Parola d'accesso di ActiveDocument.Unprotect '
Regolare il tbl = Selection.Tables (1)
'rimuovere EntryMacro dall'ultima cellula corrente
Regolare il Cl = Selection.Cells (1)
Regolare il ffld = il Cl. Range.FormFields (1)
ffld.EntryMacro = ""
Regolar il RW = tbl. Rows.Add
Per ogni Cl nel RW. Cellule
Cl di ActiveDocument.FormFields.Add. Gamma, wdFieldFormTextInput
Se cl.ColumnIndex = il RW. Cells.Count allora
Regolare il ffld = il Cl. Range.FormFields (1)
ffld.EntryMacro = “NewRow„
Concluder se
Cl seguente
I wdAllowOnlyFormFields di ActiveDocument.Protect, allineano ', parola d'accesso
Sommergibile dell'estremità
|