NewRow secundário ()
Tbl não ofuscante como a tabela
RW não ofuscante como a fileira
Cl não ofuscante como a pilha
Ffld não ofuscante como FormField
Senha de ActiveDocument.Unprotect '
Ajustar o tbl = o Selection.Tables (1)
'remover EntryMacro da última pilha atual
Ajustar o cl = o Selection.Cells (1)
Ajustar o ffld = o cl. Range.FormFields (1)
ffld.EntryMacro = ""
Ajustar RW = tbl. Rows.Add
Para cada cl no RW. Pilhas
Cl de ActiveDocument.FormFields.Add. Escala, wdFieldFormTextInput
Se cl.ColumnIndex = RW. Cells.Count então
Ajustar o ffld = o cl. Range.FormFields (1)
ffld.EntryMacro = “NewRow”
Terminar se
Cl seguinte
Os wdAllowOnlyFormFields de ActiveDocument.Protect, retificam ', senha
Submarino da extremidade
|