How to Compare Word Documents using Word VBA?

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

Leave a Reply

Your email address will not be published. Required fields are marked *