QTP Code to work with Word Docs

January 23, 2010

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

You Might Also Like

0 comments