Header Ads

QTP Code to work with Word Docs

Dim objWD
Set objWD = CreateObject("Word.Application")
objWD.Documents.Add

objWD.Selection.TypeText "This is some text." & Chr(13) & "This is some more text"
objWD.ActiveDocument.SaveAs "D:\test.doc"
objWD.Quit
Powered by Blogger.