Track changes, deletions and additions

R

rhamre

I have a bunch of documents with addition and deletion markups.

I want to make a macro that will go through an entire document, find
everything that is a deletion, put a true strikethrough on it, then deny the
changes, so it stays on page, and keeps the strikethrough.

Then i want the macro to go through and find all additions, font.color them
wdColorRed, and accept the changes, so they're on the document and color of
red.

If anyone can help it's much appreciated.
 
D

Doug Robbins

Dim arev As Revision
With ActiveDocument
For Each arev In .Revisions
If arev.Type = wdRevisionDelete Then
arev.Range.Font.StrikeThrough = True
arev.Reject
ElseIf arev.Type = wdRevisionInsert Then
arev.Range.Font.Color = wdColorRed
arev.Accept
End If
Next arev
End With
Options.RevisedLinesMark = wdRevisedLinesMarkNone


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