如何在WORD中插入多个表格？？

[a_zhe_20]

把数据库的数据输出到word中

第一个表的数据插入一个表格放入数据
第二个表的数据插入新的表格放入数据...

问题就在这里，插入的新表格总是在第一个表格的第一个单元格里（cell(1,1)）

我把插入表格的代码做成一个函数，提供row,col参数
插入表格使用：
Private Sub InsertTable(Row As Integer, Col As Integer)
Myword.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=Row, NumColumns:=Col, _
DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
End Sub

我用来用WORD的宏来试了一下，好像有个moveunit但是还是不行。
如何实现这个功能啊？？

[klbt]

学习。

[Winak]

插入新的表格时光标要先跳出第一个表格

[jlsg]

Application.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=Row, NumColumns:=Col, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
Application.ActiveDocument.Tables(Application.ActiveDocument.Tables.Count).Select
Selection.MoveDown Unit:=wdLine, Count:=1

一点思路,参考一下