Compare in Winword

[RobDog888]

* Cough, cough! *

Private Sub CompareDocument()
    oDoc.Compare Name:="C:\MyDocument.doc", CompareTarget:=wdCompareTargetNew
End Sub

This will compare the current document (opened and set to oDoc) with the file document (MyDocument.doc) and write the differences into a new document. The differences will be displayed as revision marks that indicate the differences.