word怎么设置三行四列表格

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

代 码：

Set objApp = CreateObject("Word.Application")

Set objDoc = objApp.Documents.Open("D:\Test.doc", , True)Set objTable = objDoc.Tables(2)objTable.Rows.Last.SelectobjDoc.Application.Selection.InsertRowsBelow 3Set objApp = NothingSet objDoc = Nothing

Set objTable = Nothing

演 示：

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