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 里下载示例。
