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/
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...