UnderAddTable ()
Dunkel tbl1 som Word.Table
Dunkel tbl2 som Word.Table
Dunkel rng som Word.Range
Dunkel doc som Word.Document
Dunkel wdapp som Word.Application
'…,
Uppsättning doc = wdapp.ActiveDocument
Fastställd rng = doc. Bordlägger (1). Spänna
rng. KollapswdCollapseEnd
rng. Text = vbCr
rng. KollapswdCollapseEnd
Uppsättning tbl2 = doc. Tables.Add (rng, 3, 4)
Avsluta suben
|