[原创]在QTP中向WORD文档添加纪录

'建立一个WORD对象
Set ōWord = CreateObject("Word.Application")
'打开在C盘下temp.doc,并且是可写的权限
oWord.documents.open "c:\temp.doc",ForWriting, True
Set ōDoc = oWord.ActiveDocument
Set ōRange = oDoc.content
'在文档里增加数据
oRange.insertafter "test"
'释放对象
Set ōRange = Nothing
Set ōDoc = Nothing
Set ōWord = Nothing

除了增加数据以外,在我的blog还有增加图片的方法,不过向WORD操作中的表格的数据需要点时间继续实践才能实现.