Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

comparing multiple doc files and report generation

1 view
Skip to first unread message

notanoobreally

unread,
Mar 24, 2004, 2:57:37 PM3/24/04
to

i have thousands of files that i have in double versions, i.e. there are
many files that are double. And now, i dont know what are the
differences in the files..
Is there any way through which i can come to know the differences
between my dual documents..
I actually want to compare all the documents through a batch process
and then want a report generated displaying the differences.

Is this possible?

I have bought all versions of MS Office, including 2003

I have tried a lot of comparison softwares available on the Internet..


1. i tried DiffDoc from SoftInterface.com .. it was good.. but it wont
give other details like author and title etc. Though i really like the
way it generates the report.. That is how i want MS Office to generate
a report.. but i am not sure if DiffDoc does all this in a batch
process.. because it is very cumbersome comparing all the files
manually

2. Yes, i tried the track changes>compare tool of MSOffice.. but that
was not much help.. Because..
(a) It does not run in a batch mode (or i have not found a way to do
that)
(b) The report it generates is not upto the mark, it would be nice if i
could know the number of changes.. i have got.. yes with changes
specified on every line (it does that though).. but all this in a
batch.. i m not even getting a faint idea!

3. I needed the comparison done so badly.. that i saw a software on the
net called PDF-Compare/Authenticate. It boasted of generating a report
in a batch mode.. telling all the differences...
Somehow, i failed to download the demo version (it always got stuck at
99% from an https site) but because it boasted of a batch mode and
detailed comparison i spend $250 on it!! and it all went waste!!
because it was crap it just told me that the file matched or not (yes
or no.. NO DETAILS AT ALL!!!!!)...and yes my desperation for comparison
lead me to convert each and every file to a pdf and then compare..

It would really be nice if any of you could help me with a solution!!..
just a ray of light.. just a method of how to go about it..

Thanx in Advance!!!


PS : Respected MOD : I couldnt exactly figure out where to put this
post of mine.. so putting it in a couple of topics.. :-/


------------------------------------------------
~~ Message posted from http://www.WordForums.com/

notanoobreally

unread,
Mar 24, 2004, 2:57:37 PM3/24/04
to

Doug Robbins - Word MVP - DELETE UPPERCASE CHARACTERS FROM EMAIL ADDRESS

unread,
Mar 25, 2004, 3:07:46 AM3/25/04
to
Depending upon where/how you have each of the duplicate documents stored, or
in what form the names of the two documents to be compared are stored, it
would not be hard to modify the following macro to run through a series of
documents and detail the changes:

Dim DocA As Document, DocB As String, DocC As Document, arev As Revision,
ReportDoc As Document, i As Long
Set DocA = Documents.Open("d:\documents\compare2.doc")
DocB = "D:\Documents\compare1.doc"
DocA.Compare DocB, CompareTarget:=wdCompareTargetNew
Set DocC = ActiveDocument
Set ReportDoc = Documents.Add
For i = 1 To DocC.Paragraphs.Count
If DocC.Paragraphs(i).Range.Revisions.Count > 0 Then
ReportDoc.Range.InsertAfter "Paragraph " & i & " has been changed as
follows:" & vbCr
For Each arev In DocC.Paragraphs(i).Range.Revisions
If arev.Type = wdRevisionDelete Then
ReportDoc.Range.InsertAfter Chr(34) & arev.Range & Chr(34) &
" was deleted from " & DocB & vbCr
ElseIf arev.Type = wdRevisionInsert Then
ReportDoc.Range.InsertAfter Chr(34) & arev.Range & Chr(34) &
" was added to " & DocA.Name & vbCr
End If
Next arev
Else
ReportDoc.Range.InsertAfter "Paragraph " & i & " - unchanged." &
vbCr
End If
Next i


--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
"notanoobreally" <notanoobre...@nospam.WordForums.com> wrote in
message news:notanoobre...@nospam.WordForums.com...

0 new messages