Track Changes Results summarized into an Excel sheet

  • Thread starter Thread starter brian.gattoni
  • Start date Start date
B

brian.gattoni

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.
 
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
 

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

Back
Top