向word中的表格插入3行记录

Access向word中第二个表格插入三行。

代 码：

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

演 示：

示例下载：
http://www.accessoft.com/article-show.asp?id=19962 里下载示例。