QTP向word中插入表格

最新推荐文章于 2024-05-13 21:27:30 发布

tengzejun508

最新推荐文章于 2024-05-13 21:27:30 发布

阅读量228

点赞数

分类专栏： QTP 文章标签： qtp word 表格

本文链接：https://blog.csdn.net/tengzejun508/article/details/84464782

版权

QTP 专栏收录该内容

26 篇文章 0 订阅

订阅专栏

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")