QTP操作word的查找替换功能

bisheng456

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

黑羽祭

回复 1# bisheng456


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

bisheng456

回复 2# 黑羽祭


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

黑羽祭

回复 3# bisheng456


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

1. Sub QTP_WriteWord(pathway,content)
   
2.     Dim oWord,oRange,oDoc
   
3.     Set oWord = CreateObject("Word.Application")
   
4.     oWord.documents.open pathway,forwriting, True
   
5.     Set oDoc = oWord.ActiveDocument
   
6.     Set oRange = oDoc.content
   
7.    
   
8.     oRange.insertafter content
   
9.     oWord.ActiveDocument.Save
   
10.     oWord.Application.Quit True
    
11.    
    
12.     Set oRange = Nothing
    
13.     Set oDoc = Nothing
    
14.     Set oWord = Nothing
    
15. End Sub

复制代码