Click here to Skip to main content
15,886,362 members
Please Sign up or sign in to vote.
4.00/5 (1 vote)
See more:
Hi Everyone,

I have created Word Application object as following.

MyWordApp = CreateObject("Word.Application")

MyWordApp.Documents.Open(Doc1)

With MyWordApp.ActiveDocument
    .SaveAs(OutDoc)
    .TrackRevisions = True
    .ShowRevisions = True
    .PrintRevisions = True
    .Compare(Doc2, , 1)
End With


It works fine ! But when Doc1 or Doc2 has Track Changes On and I compare them, I encounter "Command Failed" error.

Any solution to compare a Document that has Track Changes On ?
Posted
Comments
Maciej Los 19-Mar-11 16:29pm    
See here:
http://lifehacker.com/?_escaped_fragment_=247919/microsoft-word-tip--how-to-compare-two-documents-for-differences#!247919/microsoft-word-tip--how-to-compare-two-documents-for-differences
Maciej Los 7-Apr-11 16:19pm    
OK, why are you enable TrackRevision before comparing documents?

See MS Help. Take a look at "IgnoreAllComparisonWarnings" variable.

Compare Method
See AlsoApplies ToExampleSpecificsDisplays revision marks that indicate where the specified document differs from another document.

expression.Compare(Name, AuthorName, CompareTarget, DetectFormatChanges, IgnoreAllComparisonWarnings, AddToRecentFiles)
expression Required. An expression that returns a Document object.

IgnoreAllComparisonWarnings Optional Variant. True compares the documents without notifying a user of problems. The default value is False.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900