Dim arev As Revision
For Each arev In ActiveDocument.Revisions
If arev.Type = wdRevisionDelete Then
arev.Range.Font.StrikeThrough = True
ElseIf arev.Type = wdRevisionInsert Then
arev.Range.Font.Underline = True
End If
arev.Accept
Next
--
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
"Buzz" <Bu...@discussions.microsoft.com> wrote in message
news:38A2BCEF-4C56-4308...@microsoft.com...