Track Change Parser

Hello everyone,

I'm working on creating a procedure that will basically parse an entir
word document and whenever it comes across a review change (create
with the Track Changes option) it will add the page number to an array
In the end, I want to simply print all of the pages off that ha
corrections or changes on them. I have thought through some of th
program and I am using Word's built in function to find the nex
change/comment. I run into problems though when it gets to the end o
the document...the dialog comes up asking if i want to repeat from th
beginning of the document and if i click cancel it just crashes th
script. I hope this is making sense, if anyone knows of an easier wa
to do this, it would be very helpful. Thanks,

mar

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

Jezebel
Fri Feb 20 01:12:00 CST 2004

Read help on the Find object: in particular the .Wrap property which you
currently have set to wdFindAsk. wdFindStop is probably what you want for
your current purpose.



"tekstudio" <tekstudio.11wv2n@nospam.WordForums.com> wrote in message
news:tekstudio.11wv2n@nospam.WordForums.com...
>
> Hello everyone,
>
> I'm working on creating a procedure that will basically parse an entire
> word document and whenever it comes across a review change (created
> with the Track Changes option) it will add the page number to an array.
> In the end, I want to simply print all of the pages off that had
> corrections or changes on them. I have thought through some of the
> program and I am using Word's built in function to find the next
> change/comment. I run into problems though when it gets to the end of
> the document...the dialog comes up asking if i want to repeat from the
> beginning of the document and if i click cancel it just crashes the
> script. I hope this is making sense, if anyone knows of an easier way
> to do this, it would be very helpful. Thanks,
>
> mark
>
>
> ------------------------------------------------
> ~~ Message posted from http://www.WordForums.com/

anonymous
Mon Feb 23 17:21:05 CST 2004

Try the following

Dim oRevision As Revisio

For Each oRevision In ActiveDocument.Revision
Debug.Print oRevision.Range.Information(wdActiveEndPageNumber
Next oRevisio

Mark Baird