以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问vba在word中给某个表格最后新增一行的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=150577)
--  作者：tcmhl
--  发布时间：2020/6/2 15:08:00
--  请问vba在word中给某个表格最后新增一行的代码
RT谢谢
--  作者：有点蓝
--  发布时间：2020/6/2 15:21:00
--  
Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("E:\\123.docx")
    With doc.Content.Tables(1)
        .Rows.Add()
    End With
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
End try
--  作者：tcmhl
--  发布时间：2020/6/2 15:26:00
--  
请问插入多行呢？括号里打数字好像不行
--  作者：有点蓝
--  发布时间：2020/6/2 16:07:00
--  
    With doc.Content.Tables(1)
for i as integer = 1 to 10
        .Rows.Add()
next
    End With