打开word文档:
Set objDoc = CreateObject("Word.Application").Documents.Open("Word路径", , True)
定位到指定表格,Word中的第一个表格:
Set objTable = objDoc.Tables(1)
按照坐标写入数据,第二行第一列写入“测试”文字:
objTable.Cell(2, 1) ="测试"
在表格最后插入3行:
objTable.Rows.Last.Select
objDoc.Application.Selection.InsertRowsBelow 3