AddTable secundário ()
Tbl1 não ofuscante como Word.Table
Tbl2 não ofuscante como Word.Table
Rng não ofuscante como Word.Range
Doc não ofuscante como Word.Document
Wdapp não ofuscante como Word.Application
'…
Ajustar doc = wdapp.ActiveDocument
Ajustar o rng = o doc. Tabelas (1). Escala
rng. wdCollapseEnd do colapso
rng. Texto = vbCr
rng. wdCollapseEnd do colapso
Ajustar tbl2 = doc. Tables.Add (rng, 3, 4)
Terminar o submarino
|