How to generate a list of all tracked changes?

[malcaraz]

Hello!
I would like a way to get a list of all the changes (in tracking changes
mode active).
The idea would be to get a list with the output this somelike:

CHANGES REPORT IN <Document name> by <UserName>
Page Action Line
AuthorOfChange
<Page number> <Insert | Deleted> <Line Number>
<AuthorOfChange>

Does anybody know something done yet to get this?
Thank you!
Manuel Alcaraz (SPAIN)

 

[Dawn Crosier]

Try printing your document, and changing the Print What drop down box,
from Document showing Markup to "List of Markup".

It's not exactly what you want, but it may suffice.

--
Dawn Crosier
Microsoft MVP
"Education Lasts a Lifetime"

This message is posted to a newsgroup. Please post replies and
questions to the newsgroup so that others can learn as well.

 

[malcaraz]

Thank you for your help. I would like a more detailed report, so I wonder if
the Word Object Model will really suffice to get the info I need. It seems
that there are not much more alternatives...

I still can wait for any ideas. Thank you again.
Regards. Manuel.

 

[George Lee]

It's the Revision Object that's key. The following code is a quick way. Page
numbers and line numbers are other issues but a search of this newsgroup will
help. In fact, searching this group also answers this question, too.

One big warning, there is an underdocumented bug with revision marks and
tables. Tables will sometimes hose Word's internal link list. As a result,
you may get into an endless loop or an undefined object error. There really
is no good workaround for this.

Dim myRevision As Revision
theCount = 0
For Each myRevision In docOne.Revisions
theCount = theCount + 1
myString=theCount

myString=myRevision.Date
myString=myRevision.Author
myString=myRevision.Type
DoEvents
Next

 

[Vladimir Andreyev]

Hi, George!

You wrote this code:

Dim myRevision As Revision
theCount = 0
For Each myRevision In docOne.Revisions
theCount = theCount + 1
myString=theCount

myString=myRevision.Date
myString=myRevision.Author
myString=myRevision.Type
DoEvents
Next

I have such task. I have Word-document corrected in revision trace mode. I
need to make another document (Modification Log) which will be contain all
changes in first document in tablelike view: revision date, revision author,
paragraph that contains this revision, revision text. All excluding paragraph
are trivial. But I can't resolve problem how to get paragraph that contains
this revision!

So I have Revions collection contains all changes in document. But. I can
from Revision object see all about revision (date, author, text, type and so
on), and I don't understand where this revision was made in text of my
document!

Do you have any ideas about how to link Revision object in Revisions
collection to Paragraph object in Paragraphs collection? How can I get info
about where my revision is placed in text of my document?

Anybody! Can you help us?

 

[Jonathan West]

Hi Vladimir,

Each Revision object has a Range property which tells you were in the
document the Revision is. The following article will show you how to work
out how many paragraphs into the document that is.

Determine the index number of the current paragraph, table, section ...
http://www.word.mvps.org/FAQs/MacrosVBA/GetIndexNoOfPara.htm


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org