AddTable secundario ()
Tbl1 dévil como Word.Table
Tbl2 dévil como Word.Table
Rng dévil como Word.Range
Doc. dévil como Word.Document
Wdapp dévil como Word.Application
'…
Fijar doc. = wdapp.ActiveDocument
Fijar el rng = el doc. Tablas (1).Range
rng. wdCollapseEnd del derrumbamiento
rng. Texto = vbCr
rng. wdCollapseEnd del derrumbamiento
Fijar tbl2 = doc. Tables.Add (rng, 3, 4)
Terminar el submarino
|