Click here to Skip to main content
13,085,292 members (54,579 online)
Rate this:
Please Sign up or sign in to vote.
See more:
Hi Everyone,

I have created Word Application object as following.

MyWordApp = CreateObject("Word.Application")
With MyWordApp.ActiveDocument
    .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 17-Mar-11 23:21pm
losmac 19-Mar-11 16:29pm
See here:!247919/microsoft-word-tip--how-to-compare-two-documents-for-differences
losmac 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)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy |
Web01 | 2.8.170813.1 | Last Updated 18 Mar 2011
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100