VorAddTable ()
Schwaches tbl1 als Word.Table
Schwaches tbl2 als Word.Table
Schwaches rng als Word.Range
Schwaches Doc. als Word.Document
Schwaches wdapp als Word.Application
'…
Einstellen Doc. = wdapp.ActiveDocument
Rng = Doc. einstellen. Tabellen (1).Range
rng. Einsturz wdCollapseEnd
rng. Text = vbCr
rng. Einsturz wdCollapseEnd
Einstellen tbl2 = Doc. Tables.Add (rng, 3, 4)
Unterseeboot beenden
|