How to Export Changes and Comments from Word to Excel

[A Ramirez]

I am using Word 2003 and need a macro that will export all the document
changes and all comments from a Word file into Excel 2003. Per row, I would
like to see the page number, the type of change, the name or initials of the
reviewer, the date and time stamp, and the text of changes or comments to the
main document, headers, footers, and text boxes.

I have tried to print to file the list of revisions but do not get a
desireable output and the output is also incomplete when compared to a print
out of the list of revisions.

 

[Doug Robbins - Word MVP]

Using the following will create a tab delimited list of the changes in a new
document:

Dim source As Document, target As Document
Dim i As Long
Set source = ActiveDocument
Set target = Documents.Add
With source
For i = 1 To .Revisions.Count
With .Revisions(i)
target.Range.InsertAfter .Author & vbTab & .Date & vbTab & .Type
& .vbTab & .Range.Information(wdActiveEndPageNumber) & vbCr
End With
Next i
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP