Sub AddTable ()
Schemerige tbl1 als Word.Table
Schemerige tbl2 als Word.Table
Schemerige rng als Word.Range
Schemerig doc. als Word.Document
Schemerige wdapp als Word.Application
'…
Vastgesteld doc. = wdapp.ActiveDocument
Reeks rng = doc. Lijsten (1). Waaier
rng. Instorting wdCollapseEnd
rng. Tekst = vbCr
rng. Instorting wdCollapseEnd
Reeks tbl2 = doc. Tables.Add (rng, 3, 4)
Sub van het eind
|