QTP Script to add Underlined text to MS Word document-VB Script to add Underlined text to MS Word document

QTP Script to add Underlined text to MS Word document



dim a

set a=createobject("Word.Application")

a.Documents.Add

a.visible=true

a.selection.font.size=20

a.selection.font.name="Times New Roman"

a.Selection.Font.Underline = 1

a.Selection.TypeText"HELLOOO"

a.ActiveDocument.Saveas"C:\qtp.doc"