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.