QTP Script to Find and Replace a Text in MS Word Document-Qtp Script to Replace a string in word document with another string

QTP Script to Find and Replace a Text in MS Word Document

set a=createobject("Word.Application")

a.visible=true

set b=a.Documents.open("C:\qtp.doc")

For i = 1 To b.words.Count

b.words.Item(i).Text = Replace(b.words.Item(i).Text, "Qtp", "Quick Test Pro")

Next