Running a macro containing the following code when the document with the
changes is the active document will create a new document containing details
of each revision. You can then sort and use that if you want in Word, or
copy and paste it into Excel if that is where you must have it.
Dim source As Document, target As Document
Dim rtable As Table
Dim rrow As Row
Dim arev As Revision
Set source = ActiveDocument
Set target = Documents.Add
Set rtable = target.Tables.Add(target.Range, 1, 4)
With rtable
.Cell(1, 1).Range.Text = "Revision"
.Cell(1, 2).Range.Text = "Revision Type"
.Cell(1, 3).Range.Text = "Author"
.Cell(1, 4).Range.Text = "Page Number"
End With
For Each arev In source
Set rrow = rtable.Rows.Add
With rrow
.Cells(1).Range.Text = arev.Range.Text
.Cells(2).Range.Text = arev.Type
.Cells(3).Range.Text = arev.Author
.Cells(4).Range.Text =
arev.Range.Information(wdActiveEndPageNumber)
End With
Next arev
--
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