Track Change Parser

[tekstudio]

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

 

[Jezebel]

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.

 

[Mark Baird]

Try the following

Dim oRevision As Revisio

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

Mark Baird