Converting track changes text to normal text

  • Thread starter Thread starter Buzz
  • Start date Start date
B

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?
 
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
 
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?
Click to expand...


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