Is there a way to use track changes to create a table of changes?

[Doug Robbins - Word MVP]

Something like this might give you what you want:

Dim arev As Revision
Dim source As Document
Dim target As Document
Set source = ActiveDocument
Set target = Documents.Add
Dim revtype As String
With source
For Each arev In .Revisions
Select Case arev.Type
Case 1
revtype = "Inserted"
Case 2
revtype = "Deleted"
Case Else
revtype = "Format Changed"
End Select
With target.Range
.InsertAfter "Page " &
arev.Range.Information(wdActiveEndPageNumber) & vbTab & _
revtype & vbTab & arev.Range & vbTab & "by " & arev.Author &
vbCr
End With
Next arev
End With
target.Range.ConvertToTable vbTab

There are a whole range of revision .Types:

wdNoRevision
wdRevisionDelete
wdRevisionInsert
wdRevisionParagraphProperty
wdRevisionReconcile
wdRevisionSectionProperty
wdRevisionStyleDefinition
wdRevisionConflict
wdRevisionDisplayField
wdRevisionParagraphNumber
wdRevisionProperty
wdRevisionReplace
wdRevisionStyle
wdRevisionTableProperty

but the delete and insert are probably the ones that you are interested in
and in the above macro, any others will be described as "Format Changed"
--
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

 

[mistletoe313]

Thanks much!
Have a magical day!

Something like this might give you what you want:

Dim arev As Revision
Dim source As Document
Dim target As Document
Set source = ActiveDocument
Set target = Documents.Add
Dim revtype As String
With source
For Each arev In .Revisions
Select Case arev.Type
Case 1
revtype = "Inserted"
Case 2
revtype = "Deleted"
Case Else
revtype = "Format Changed"
End Select
With target.Range
.InsertAfter "Page " &
arev.Range.Information(wdActiveEndPageNumber) & vbTab & _
revtype & vbTab & arev.Range & vbTab & "by " & arev.Author &
vbCr
End With
Next arev
End With
target.Range.ConvertToTable vbTab

There are a whole range of revision .Types:

wdNoRevision
wdRevisionDelete
wdRevisionInsert
wdRevisionParagraphProperty
wdRevisionReconcile
wdRevisionSectionProperty
wdRevisionStyleDefinition
wdRevisionConflict
wdRevisionDisplayField
wdRevisionParagraphNumber
wdRevisionProperty
wdRevisionReplace
wdRevisionStyle
wdRevisionTableProperty

but the delete and insert are probably the ones that you are interested in
and in the above macro, any others will be described as "Format Changed"
--
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

 

[mistletoe313]

Do I use this by saving it as a macro? (Sorry, I wasn't expecting a VBA
answer...)

 

[Doug Robbins - Word MVP]

See the article "What do I do with macros sent to me by other newsgroup
readers to help me out?" at:

http://www.word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm

You did ask in a VBA newsgroup<g>


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

 

[mistletoe313]

sorry - I've never been in a newsgroup or chatroom, etc, before
But thanks : )