Click here to Skip to main content
12,076,727 members (45,582 online)
Rate this:
 
Please Sign up or sign in to vote.
See more: VB VB.NET Word
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 18-Mar-11 0:21am
Comments
losmac 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
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 | Mobile
Web04 | 2.8.160212.1 | Last Updated 18 Mar 2011
Copyright © CodeProject, 1999-2016
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