Hi all,

If I want to compare 2 word docs and highlight the differences between them
I use:

Sub IsDocument_Equal()

Dim oDoc1 As Word.Document
Dim oResDoc As Word.Document

' Delete the tables from both the document

' Delete the images from both the document

' Replace Paragraphs etc

Set oDoc1 = ActiveDocument

' comparing Document 1 with New 1.doc
oDoc1.Compare Name:="C:\New 1.doc", CompareTarget:=wdCompareTargetNew,
DetectFormatChanges:=True

'This will be the result document
Set oResDoc = ActiveDocument

If oResDoc.Revisions.Count <> 0 Then
'Some changes are done
MsgBox "There are Changes "
Else
MsgBox "No Changes"
End If

End Sub

Is there a methos I can use to compare / identify the changes bewteen 2
different excel workbooks?

TIA
Chris

Jim Cone has a nifty commercial Add-in that I use to compare workbooks. It's
called XLCompanion, and is available at

http://www.realezsites.com/bus/primitivesoftware/

Vaya con Dios,
Chuck, CABGx3



"Chris" wrote:

> Hi all,
>
> If I want to compare 2 word docs and highlight the differences between them
> I use:
>
> Sub IsDocument_Equal()
>
> Dim oDoc1 As Word.Document
> Dim oResDoc As Word.Document
>
> ' Delete the tables from both the document
>
> ' Delete the images from both the document
>
> ' Replace Paragraphs etc
>
> Set oDoc1 = ActiveDocument
>
> ' comparing Document 1 with New 1.doc
> oDoc1.Compare Name:="C:\New 1.doc", CompareTarget:=wdCompareTargetNew,
> DetectFormatChanges:=True
>
> 'This will be the result document
> Set oResDoc = ActiveDocument
>
> If oResDoc.Revisions.Count <> 0 Then
> 'Some changes are done
> MsgBox "There are Changes "
> Else
> MsgBox "No Changes"
> End If
>
> End Sub
>
> Is there a methos I can use to compare / identify the changes bewteen 2
> different excel workbooks?
>
> TIA
> Chris
>
>