Word Documents are everywhere – proposals, tenders, notes, technical papers. In many cases there are more than one authors and more than five reviewers. Just in case you get a document reviewed by your boss (and without track changes) and you want to know what he/she has done use the following
Sub CompareDoc()
Dim oDoc1 As Document
Dim oDoc2 As Document
Set oDoc1 = Documents.Open("D:\Changed Header.doc")
Set oDoc2 = Documents.Open("D:\Original Header.doc")
Application.CompareDocuments oDoc1, oDoc2, wdCompareDestinationNew, , , , , , True, True
End Sub
This compares two documents and creates a new document with Track Changes showing the changes.
Explore comprehensive Course on Excel Automation or Excel VBA Programming here and, learn to automate your routine task with ease.
Happy Excelling
Team Excelgoodies
www.Excelgoodies.com