AddTable secondaire ()
Faible tbl1 comme Word.Table
Faible tbl2 comme Word.Table
Faible rng comme Word.Range
Faible Doc. comme Word.Document
Faible wdapp comme Word.Application
'…
Placer Doc. = wdapp.ActiveDocument
Placer le rng = le Doc. Tableaux (1).Range
rng. wdCollapseEnd d'effondrement
rng. Texte = vbCr
rng. wdCollapseEnd d'effondrement
Placer tbl2 = Doc. Tables.Add (rng, 3, 4)
Finir le sous-marin
|