Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Converting track changes text to normal text
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? |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Converting track changes text to normal text
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? |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Converting track changes text to normal text
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? |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
Converting track changes text to normal text
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 |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
converting ASCII text to Microsoft Word text | Microsoft Word Help | |||
Converting from Outline to Normal View - Formatting Text | Page Layout | |||
Converting MS Word text to standard text for online application | Microsoft Word Help | |||
converting text from html to normal | Microsoft Word Help | |||
Track changes should show added text while HIDING deleted text. | Microsoft Word Help |