How to Compare two Word documents ??

How To Make Career In QTP: How to Extract all words from Word document ??

Dim Doc1, Doc2, oWord, oCompared
Doc1= "C:\Test1.doc"
Doc2= "C:\Test2.doc"

set oWord = createobject("Word.Application")
oWord.Visible =true

set oCompared = oWord.Documents.Open(Doc2)
oCompared.Compare(Doc1)
oCompared.Close