QTP向word中插入表格

Sub EditWord(filepath)
'    设置总行数及列数变量
    Dim rowCount,colCount
    rowCount=0
    colCount=0
'    创建word对象
    Set WordApp=createobject("word.application")
'    设置可见
    WordApp.Visible=true
'    打开已经存在的word文档
    Set WordDoc=WordApp.Documents.Open(filepath)
'    选中文档区域
    WordDoc.Range.Select
'    选中word对象区域
    Set WordSel=WordApp.Selection
    With WordSel
'        设置表格对象，add中三个参数为表格区域、行数、列数
        Set NewTable=WordSel.Tables.Add(WordSel.Range,5,3)
'        设置字体的大小
        NewTable.Range.Font.Size=10
'        去表格总行数
        rowCount=NewTable.Rows.Count
'        取总列数
        colCount=NewTable.Columns.Count
        For i = 1 To rowCount 
            For j = 1 To colCount 
                If i=1 Then
'                设置表格中的内容
                    NewTable.Cell(i,j).Range.Text="i*"&j
                else
                    NewTable.Cell(i,j).Range.Text=(i-1)*j
                End If
            Next
        Next
        NewTable.Rows.Add
        rowCount=NewTable.Rows.Count
        For i = 1 To colCount Step 1
            NewTable.Cell(rowCount,i).Range.Text=(rowCount-1)*i
        Next
    End With
    WordDoc.Save
    WordDoc.Close
    WordApp.Quit
    Set WordDoc=nothing
    Set WordApp=nothing
End Sub
EditWord("d:\test.doc")