Function to Compare two Word documents

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