VorNewRow ()
Schwaches tbl als Tabelle
Schwaches RW als Reihe
Schwaches Cl als Zelle
Schwaches ffld als FormField
ActiveDocument.Unprotect 'Kennwort
Tbl = Selection.Tables einstellen (1)
'EntryMacro von der gegenwärtigen letzten Zelle entfernen
Cl = Selection.Cells einstellen (1)
Ffld = Cl. Range.FormFields einstellen (1)
ffld.EntryMacro = ""
Einstellen RW = tbl. Rows.Add
Für jedes Cl in RW. Zellen
ActiveDocument.FormFields.Add Cl. Strecke, wdFieldFormTextInput
Wenn cl.ColumnIndex = RW. Cells.Count dann
Ffld = Cl. Range.FormFields einstellen (1)
ffld.EntryMacro = „NewRow“
Beenden wenn
Folgendes Cl
ActiveDocument.Protect wdAllowOnlyFormFields, ausrichten ', Kennwort
Enden-Unterseeboot
|