Macro to convert revision text to ordinary formatted text

[Jonathan Sachs]

Does anyone have a macro they can share that does this?

To clarify what I need, the macro will convert revisions in text
written with change tracking to ordinary text with underscores and
strikeouts.

My email address is LLM041103 at earthlink dot net.

 

[Doug Robbins - Word MVP]

Dim aRev As Revision
With ActiveDocument
.TrackRevisions = False
For Each aRev In .Revisions
If aRev.Type = wdRevisionInsert Then
aRev.Range.Underline = wdUnderlineSingle
aRev.Accept
Else
aRev.Range.Font.StrikeThrough = True
aRev.Reject
End If
Next aRev
End With


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