Hello, I would like to do a couple of things in Microsoft word. I am currently running word 2003. I would like to export tracked changes that were made to a document to a separate file (ideally to excel). I would like to show the tracked changes in a table within word doc. I would like to merge multiple docs with tracked changes and have all changes appears tracked by reviewer in the merged doc. thanks in advance
The following should do what you want: Dim arev As Revision Dim source As Document, Target As Document Dim revtable As Table Dim revrow As Row Dim i As Long Set source = ActiveDocument Set Target = Documents.Add Set revtable = Target.Tables.Add(Range:=Selection.Range, NumRows:=1, NumColumns:=3) With revtable .Cell(1, 1).Range.Text = "Revised Text" .Cell(1, 2).Range.Text = "Type" .Cell(1, 3).Range.Text = "Reviewer" End With For Each arev In source.Revisions Set revrow = revtable.Rows.Add With revrow .Cells(1).Range.FormattedText = arev.Range.FormattedText .Cells(2).Range.Text = arev.Type .Cells(3).Range.Text = arev.Author 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 "millin" wrote in message news:08837EEE-2EEE-417F-A4C3-A0D54ACBD8B0@microsoft.com... > Hello, > > I would like to do a couple of things in Microsoft word. I am currently > running word 2003. > I would like to export tracked changes that were made to a document to a > separate file (ideally to excel). > I would like to show the tracked changes in a table within word doc. > I would like to merge multiple docs with tracked changes and have all > changes appears tracked by reviewer in the merged doc. > > thanks in advance >
