Macro to convert revision text to ordinary formatted text

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Jonathan Sachs - 14 Jan 2006 04:18 GMT

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.

Reply to this Message

Doug Robbins - Word MVP - 14 Jan 2006 08:36 GMT

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

Signature

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

> Does anyone have a macro they can share that does this?
>
[quoted text clipped - 3 lines]
>
> My email address is LLM041103 at earthlink dot net.

Reply to this Message