Summary table for track changes

I

Ilyas

Is it possible to get a summary (or table of contents) of all the changes
made through "track change" options by different users.

My superivor has a documents with track changes and asked me to prepare a
"summary of all changes" suggested in a table format.

Is there a quick option? Thanks
 
J

Jay Freedman

Is it possible to get a summary (or table of contents) of all the changes
made through "track change" options by different users.

My superivor has a documents with track changes and asked me to prepare a
"summary of all changes" suggested in a table format.

Is there a quick option? Thanks

You need a macro. The one below is a slight modification of one I
posted at
http://groups.google.com/group/microsoft.public.word.docmanagement/msg/2188cc26e005fa03.
Use the instructions at http://www.gmayor.com/installing_macro.htm if
needed.

Sub ExtractRevisions()
Dim srcDoc As Document, destDoc As Document
Dim oRev As Revision
Dim oTbl As Table
Dim nRows As Long

Set srcDoc = ActiveDocument
Set destDoc = Documents.Add
destDoc.Sections(1).Headers(wdHeaderFooterPrimary) _
.Range.Text = "Revisions in " & _
srcDoc.FullName

Set oTbl = destDoc.Tables.Add(Range:=destDoc.Range, _
numrows:=1, numcolumns:=5)
nRows = 1
With oTbl
.Cell(1, 1).Range.Text = "Date & Time"
.Cell(1, 2).Range.Text = "Page"
.Cell(1, 3).Range.Text = "Line"
.Cell(1, 4).Range.Text = "Author"
.Cell(1, 5).Range.Text = "Item"

For Each oRev In srcDoc.Revisions
.Rows.Add
nRows = nRows + 1
.Cell(nRows, 1).Range.Text = oRev.Date
.Cell(nRows, 2).Range.Text = oRev.Range.Information( _
wdActiveEndAdjustedPageNumber)
.Cell(nRows, 3).Range.Text = oRev.Range.Information( _
wdFirstCharacterLineNumber)
.Cell(nRows, 4).Range.Text = oRev.Author
.Cell(nRows, 5).Range.Text = oRev.Range.Text
Next oRev

.Rows(1).HeadingFormat = True
End With
End Sub
 
G

garfield-n-odie [MVP]

In the Print dialog (which you can access by pressing Ctrl+P),
choose to print only the tracked changes to a text file, and then
open the resulting text file in Word and format the contents into
a table.
 
Joined
Apr 2, 2015
Messages
3
Reaction score
0
I need to get the revision summary (just the values) of all Word documents in a particular folder in an Excel work book. Can anyone help create a macro for that?
The table should contain
Document name
Summary ():
 

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

Top