51Testing软件测试论坛

标题: QTP操作word的查找替换功能 [打印本页]

作者: bisheng456 时间: 2014-1-5 15:54
标题: QTP操作word的查找替换功能
word中有10行文字，已经按顺序粘贴到excel的表格中，现在已经将excel导入到QTP中的Data Table中了，这个比较简单，那么怎样用QTP去检查粘贴到excel中的文字是否正确呢？我的思路是word的查找替换功能，哪位大大教教怎么用QTP打开word的查找，再把Data Table中的内容写进查找？自学的新手，不太会word

作者: 黑羽祭 时间: 2014-1-6 16:36
回复 1# bisheng456

这是在做什么？你的目的是测什么？预期结果是什么？没怎么看懂

作者: bisheng456 时间: 2014-1-7 12:45
回复 2# 黑羽祭

说的简单点，就是怎么用QTP打开word，然后使用word的查找功能，再往查找里面输入点东西，只是一个小测试，谢谢版主

作者: 黑羽祭 时间: 2014-1-7 13:08
回复 3# bisheng456

怎么查找不知道，我给个写word的脚本，你根据里面的object找找是不是有查找的方法。

Sub QTP_WriteWord(pathway,content)
Dim oWord,oRange,oDoc
Set oWord = CreateObject("Word.Application")
oWord.documents.open pathway,forwriting, True
Set oDoc = oWord.ActiveDocument
Set oRange = oDoc.content
oRange.insertafter content
oWord.ActiveDocument.Save
oWord.Application.Quit True
Set oRange = Nothing
Set oDoc = Nothing
Set oWord = Nothing
End Sub

复制代码

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)