NewRow secundario ()
Tbl dévil como tabla
RW dévil como fila
Cl dévil como célula
Ffld dévil como FormField
Contraseña de ActiveDocument.Unprotect '
Fijar el tbl = Selection.Tables (1)
'quitar EntryMacro de la célula pasada actual
Fijar el cl = Selection.Cells (1)
Fijar el ffld = el cl. Range.FormFields (1)
ffld.EntryMacro = ""
Fijar RW = el tbl. Rows.Add
Para cada cl en RW. Células
Cl de ActiveDocument.FormFields.Add. Gama, wdFieldFormTextInput
Si cl.ColumnIndex = RW. Cells.Count entonces
Fijar el ffld = el cl. Range.FormFields (1)
ffld.EntryMacro = “NewRow”
Terminar si
Cl siguiente
Los wdAllowOnlyFormFields de ActiveDocument.Protect, verdad ', contraseña
Submarino del extremo
|