先注释 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
'===========追加表格================