Sub AddTable ()
Тусклое tbl1 как Word.Table
Тусклое tbl2 как Word.Table
Тусклое rng как Word.Range
Тусклый doc как Word.Document
Тусклое wdapp как Word.Application
'…
Установите doc = wdapp.ActiveDocument
Установите rng = doc. Таблицы (1).Range
rng. wdCollapseEnd сброса давления
rng. Текст = vbCr
rng. wdCollapseEnd сброса давления
Установите tbl2 = doc. Tables.Add (rng, 3, 4)
Закончите подводную лодку
|