代 码:
Set objApp = CreateObject("Word.Application")
Set objDoc = objApp.Documents.Open("D:\Test.doc", , True)
Set objTable = objDoc.Tables(2)
objTable.Rows.Last.Select
objDoc.Application.Selection.InsertRowsBelow 3
Set objApp = Nothing
Set objDoc = Nothing
Set objTable = Nothing
附 件:
点击下载此附件
演 示: