Extract reviewer names

T

tartansand

I can get a count of reviewers and the list indexes out of a document but
can't figure out how to get the actual names using vba
Anyone help?
Thanks
 
G

George Lee

The following will work, sort of:

Public Sub FindRevisions()
Dim currentDocument As Document
Set currentDocument = ActiveDocument

Dim myRevision As Revision
For Each myRevision In currentDocument.Revisions
Debug.Print myRevision.Author
DoEvents
Next
End Sub

Sort of. There is a bug, in at least Word 2003, in revisions that can
corrupt the links. This results in either an endless loop (the next revision
pointer goes back to a previous revision), or crashes (the pointer goes off
to a random spot in the document). The more complete solution includes
aggressive error checking, and making sure you aren’t hitting the same error
a bunch of times. It can get so ugly that it may not be reliable.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Weekly Report 2
Template with fields and premade texts.. 0
Automatic indexing in footnotes - solved 0
I screwed up 0
Trying to create a report that will list unmatched records by Ticket Primary Key 0
Office 365 Outlook adding unwanted HTML to Email Body 0
Macro Loop 0
VBA word change keys 0

Top