NewRow secondaire ()
Faible tbl comme Tableau
Le faible RW comme rangée
Faible Cl comme cellule
Faible ffld comme FormField
Mot de passe d'ActiveDocument.Unprotect '
Placer le tbl = le Selection.Tables (1)
'enlever EntryMacro de la dernière cellule courante
Placer le Cl = Selection.Cells (1)
Placer le ffld = le Cl. Range.FormFields (1)
ffld.EntryMacro = ""
Placer le RW = le tbl. Rows.Add
Pour chaque Cl au RW. Cellules
Cl d'ActiveDocument.FormFields.Add. Gamme, wdFieldFormTextInput
Si cl.ColumnIndex = le RW. Cells.Count alors
Placer le ffld = le Cl. Range.FormFields (1)
ffld.EntryMacro = « NewRow »
Finir si
Prochain Cl
Les wdAllowOnlyFormFields d'ActiveDocument.Protect, rectifient ', mot de passe
Sous-marin d'extrémité
|