Comparing two documents and finding the accuracy

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

M.L.Srinivas - 27 Nov 2003 09:47 GMT

Hi,

How can i campare two documents and give the accuracy of
the compared one using vba.

Supposing that i have a master document and a test
document and i want to compare the master with test and
give the accuracy of test and also display the list of
mistakes done.

Can we do this?
Please Help.

M.L.Srinivas

Reply to this Message

Helmut Weber - 27 Nov 2003 19:18 GMT

Hi M.L.,
great challenge and can certainly be done,
but would require an extraordinary effort,
given, there is no previous selection of
very very very similar documents.
For pure text comparison, there is the old
DOS-Command "fc", which is complicated enough.
Greetings from Bavaria, Germany
Helmut Weber
"red.sys" & chr$(64) & "t-online.de"

Reply to this Message

Bruce Brown - 28 Nov 2003 20:37 GMT

Why not just use Tools > Track changes? Wouldn't that be enough? See
Help for a description of how it works. P.S. If you do use Track
changes, make sure to 'Accept all changes' before saving the document.
They say a bunch of unaccepted changes can eventually cause serious
problems.

> Hi M.L.,
> great challenge and can certainly be done,
[quoted text clipped - 6 lines]
> Helmut Weber
> "red.sys" & chr$(64) & "t-online.de"

Reply to this Message

M.L.Srinivas - 29 Nov 2003 05:09 GMT

Hi Bruce,

I believe you got me wrong i'm talking baout comparing the
documents using vba not manually...Thanks for your time.

Hi Helmet,

I'm able to compare two documents thru vba, which i'm
doing it with the following code:

WordApp.ActiveDocument.Compare Name:=(path of the
comparing doc)
WordApp.ActiveDocument.SaveAs (New Path)

wordapp is word object. This is working fine, but i want
to know what are the mistakes in the test document and
calculate accuracy for it.

Atleast, I want to list out the mistakes.

Can u help me?

M.L.srinivas

>-----Original Message-----
>Why not just use Tools > Track changes? Wouldn't that be enough? See
[quoted text clipped - 14 lines]
>> "red.sys" & chr$(64) & "t-online.de"
>.

Reply to this Message

Word Heretic - 29 Nov 2003 06:32 GMT

G'day "M.L.Srinivas" <mlsrinivas@indiatimes.com>,

Third party companies have spent many man years on achieving said
results. I would suggest their product cost is a tiny tiny fraction of
the real dev cost.

"M.L.Srinivas" <mlsrinivas@indiatimes.com> was spinning this yarn:

>Hi Bruce,
>
[quoted text clipped - 44 lines]
>>> "red.sys" & chr$(64) & "t-online.de"
>>.

Steve Hudson

Word Heretic, Sydney, Australia
Tricky stuff with Word or words for you.
wordheretic.com

If my answers r 2 terse, ask again or hassle an MVP,
at least they get recognition for it then.
Lengthy replies offlist require payment.

Reply to this Message

Malcolm Smith - 29 Nov 2003 10:01 GMT

Indeed, have a look on the www.Workshare.net site; their comparison
product is the bees' knees and seems to be preferred by a good proportion
of the UK Law Firms.

- Malc
www.dragondrop.com

Reply to this Message

Helmut Weber - 30 Nov 2003 15:20 GMT

Hi M L.,
(I'd appreciate a real name),
maybe this could be a hint into the right direction,
though it seems still pretty complicated to me:
Dim p1 As Integer ' start position
Dim p2 As Integer ' next position
Selection.WholeStory
Selection.Collapse direction:=wdCollapseStart
p1 = Selection.start
Selection.NextRevision ' goto revision
' probably get revision text
p2 = Selection.start
While p1 <> p2 ' if selection was moved
p1 = Selection.start
Selection.NextRevision ' then next revision
' get revision text
p2 = Selection.start
Wend
This routine would guide you through all the revisions
in the compared document. It's up to you, to make up
a list of all the "Selection.NextRevision"s.
Greetings from Bavaria, Germany
Helmut Weber
"red.sys" & chr$(64) & "t-online.de"
Word 97, W98

Reply to this Message