如何在excel中用vba代码添加word表格行数

先注释度 On Error Resume Next 再调试

从最后一知行开始添加表格道可以用下内面的代容码
Visual Basic code
?
'=============追加表格=============
Set rs = myWord.Tables(1).Rows
Dim i As Integer
For i = 1 To 10
rs.Add rs(rs.Count)
Next
'===========追加表格================