AddTable secondario ()
Tbl1 fioco come Word.Table
Tbl2 fioco come Word.Table
Rng fioco come Word.Range
Documento fioco come Word.Document
Wdapp fioco come Word.Application
'…
Regolar documento = wdapp.ActiveDocument
Regolare il rng = il documento. Tabelle (1).Range
rng. wdCollapseEnd di crollo
rng. Testo = vbCr
rng. wdCollapseEnd di crollo
Regolar tbl2 = documento. Tables.Add (rng, 3, 4)
Concludere il sommergibile
|