Sub AddTable()
Dim tbl1 As Word.Table
Dim tbl2 As Word.Table
Dim rng As Word.Range
Dim doc As Word.Document
Dim wdapp As Word.Application
'...
Set doc = wdapp.ActiveDocument
Set rng = doc.Tables(1).Range
rng.Collapse wdCollapseEnd
rng.Text = vbCr
rng.Collapse wdCollapseEnd
Set tbl2 = doc.Tables.Add(rng, 3, 4)
End Sub
|