[[email protected]]

Is there a way (internally or 3rd party) to export the results of a
track changes document into an Excel Spreadsheet. The endstate would
look like a list of recommended changes, sorted by author, or page
number, etc.

Anything?

vr
Brian G.

[Doug Robbins - Word MVP]

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

wrote in message
...
Is there a way (internally or 3rd party) to export the results of a
track changes document into an Excel Spreadsheet. The endstate would
look like a list of recommended changes, sorted by author, or page
number, etc.

Anything?

vr
Brian G.

[Lene Fredborg]

....and for another macro version, that also includes line numbers and
revision dates, see:
http://www.thedoctools.com/index.php...hanges_extract

--
Regards
Lene Fredborg
DocTools - Denmark
www.thedoctools.com
Document automation - add-ins, macros and templates for Microsoft Word


"Doug Robbins - Word MVP" wrote:

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

wrote in message
...
Is there a way (internally or 3rd party) to export the results of a
track changes document into an Excel Spreadsheet. The endstate would
look like a list of recommended changes, sorted by author, or page
number, etc.

Anything?

vr
Brian G.