[Buzz]

I am working on a document in Word 2007 and Word 2002, and have used track
changes for edits. Is there a way to convert the track changes text to
regular text, with the additions becoming a normal font that is underlined
and the deleted text becoming a normal font with strikeout?

[Doug Robbins - Word MVP]

Running a macro that contains the following code should do that:

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" wrote in message
...
I am working on a document in Word 2007 and Word 2002, and have used track
changes for edits. Is there a way to convert the track changes text to
regular text, with the additions becoming a normal font that is underlined
and the deleted text becoming a normal font with strikeout?

[Mark[_2_]]

Thanks - this was very helpful. I have never worked in Visual Basic
before, but I "winged" it and the macro worked. I had one problem, however.
The deleted text simply disappeared. Should there be a step that rejects
the deletion first, and then converts it to strikeout text? How would I
write that code?

[[email protected]]

On Friday, April 18, 2008 at 12:28:53 AM UTC+10, Mark wrote:
Thanks - this was very helpful. I have never worked in Visual Basic
before, but I "winged" it and the macro worked. I had one problem, however.
The deleted text simply disappeared. Should there be a step that rejects
the deletion first, and then converts it to strikeout text? How would I
write that code?


Just checked on a document - this will do it:

Dim arev As Revision
For Each arev In ActiveDocument.Revisions
If arev.Type = wdRevisionDelete Then
arev.Range.Font.StrikeThrough = True
arev.Reject
ElseIf arev.Type = wdRevisionInsert Then
arev.Range.Font.Underline = True
arev.Accept
End If
Next