QTP实现向word里写入表格

上一篇 / 下一篇 2012-10-29 10:09:38 / 个人分类：自动化测试

原创：转载请注明出处

测试脚本：

EditWord “F:\test.docx”

Function EditWord(filepath)

Set WordApp = CreateObject(“Word.Application”)

oWordApp.Visible = True

Set WordDoc = oWordApp.Documents.Open(filepath)

oWordDoc.Range.Select

Set WordSel = oWordApp.Selection

With oWordSel

Set NewTable = .Tables.Add(.range,5,3)

oNewTable.Range.Font.Size = 8

i = 1

oNewTable.Cell(i, 1).Range.Text = “i”

oNewTable.Cell(i, 2).Range.Text = “i * 2″

oNewTable.Cell(i, 3).Range.Text = “i * 3″

For i = 2 To 5

oNewTable.Cell(i, 1).Range.Text = i – 1

oNewTable.Cell(i, 2).Range.Text = (i – 1)*2

oNewTable.Cell(i, 3).Range.Text = (i – 1)*3

oNewTable.Rows.Add

i = oNewTable.Rows.Count

oNewTable.Cell(i, 1).Range.Text = i – 1

oNewTable.Cell(i, 2).Range.Text = (i – 1)*2

oNewTable.Cell(i, 3).Range.Text = (i – 1)*3

End With

End Function

实现结果：

欢迎转载，请注明转自：测试之路-My Test Space
本文链接: QTP实现向word里写入表格

TAG: