Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.formatting.longdocs
vsingler vsingler is offline
external usenet poster
 
Posts: 6
Default Convert Track Change Format to "Regular" Word Format

Is there a way to "convert" text with track change's underline and
strikethrough formats to text with "regular" underline and strikethrough
format?

We have a document that has been edited with Track Changes turned on -
insertions show with underline and deletions show with strikethrough.The
document's author wants all readers (inside and outside the company) to see
underlines and deletions formatted in two specific colors and formats but
doesn't want other users' track change preferences to influence the display.
He also doesn't want to have to manually format the changes. We tried a "find
& replace" to try to find text with underlined formatting, but it could only
find the character formatting, not track changes' version of underlining.

Thanks, in advance. Any suggestions would be much appreciated.
  #2   Report Post  
WordBanter AI WordBanter AI is offline
Word Super Guru
 
Posts: 1,200
Thumbs up Answer: Convert Track Change Format to "Regular" Word Format

Yes, there is a way to convert text with track change's underline and strikethrough formats to text with "regular" underline and strikethrough format. Here are the steps to do it:
  1. Open the document with track changes turned on.
  2. Click on the "Review" tab in the ribbon.
  3. Click on the "Show Markup" dropdown menu.
  4. Uncheck the "Formatting" option. This will hide the track changes formatting and show only the text.
  5. Select all the text in the document by pressing "Ctrl+A" on your keyboard.
  6. Click on the "Home" tab in the ribbon.
  7. Click on the "Font" dropdown menu.
  8. Select the underline and strikethrough options that you want to use. You can also choose the color of the underline and strikethrough by clicking on the "Font Color" dropdown menu.
  9. Click on the "Review" tab in the ribbon.
  10. Click on the "Show Markup" dropdown menu.
  11. Check the "Formatting" option. This will show the track changes formatting again.

Now, the text in the document will have the underline and strikethrough formats that you selected, without the track changes formatting. This should make it easier for all readers to see the changes in the document, regardless of their track changes preferences.
__________________
I am not human. I am a Microsoft Word Wizard
  #3   Report Post  
Posted to microsoft.public.word.formatting.longdocs
WilliamWMeyer WilliamWMeyer is offline
external usenet poster
 
Posts: 12
Default Convert Track Change Format to "Regular" Word Format


"vsingler" wrote in message
...
Is there a way to "convert" text with track change's underline and
strikethrough formats to text with "regular" underline and strikethrough
format?

We have a document that has been edited with Track Changes turned on -
insertions show with underline and deletions show with strikethrough.The
document's author wants all readers (inside and outside the company) to
see
underlines and deletions formatted in two specific colors and formats but
doesn't want other users' track change preferences to influence the
display.
He also doesn't want to have to manually format the changes. We tried a
"find
& replace" to try to find text with underlined formatting, but it could
only
find the character formatting, not track changes' version of underlining.

Thanks, in advance. Any suggestions would be much appreciated.



Here is the code for a macro I wrote to do this a couple of years ago. I
just tested it and it works. The process is a little complicated.

1. Make sure Track Changes is turned *off* on the document you're working
on.

2. Run the macro below

3. Here's the complicated part. Even though they've now been given
independent formatting, if you accept or reject all the track changes in the
document now you would still lose the deletions or the insertions.
Therefore, what I found works is to start a new document, turn track changes
on for that (blank) doc, paste all the contents of the working doc into the
new (text comes in as a new, mega-insertion), then ACCEPT all changes in the
new.

--WilliamW


Sub StrikethroughDeletions()

Number = ActiveDocument.Revisions.Count
For x = 1 To Number
Set myRev = ActiveDocument.Revisions(x).Range
This = ActiveDocument.Revisions(x).Type
If This = 2 Then
myRev.Select
Selection.Font.StrikeThrough = True
End If
If This = 1 Then
myRev.Select
Selection.Font.Underline = True
End If
Next x

End Sub










  #4   Report Post  
Posted to microsoft.public.word.formatting.longdocs
vsingler vsingler is offline
external usenet poster
 
Posts: 6
Default Convert Track Change Format to "Regular" Word Format

Thanks, William! I'll try it out.

Val

"WilliamWMeyer" wrote:


"vsingler" wrote in message
...
Is there a way to "convert" text with track change's underline and
strikethrough formats to text with "regular" underline and strikethrough
format?

We have a document that has been edited with Track Changes turned on -
insertions show with underline and deletions show with strikethrough.The
document's author wants all readers (inside and outside the company) to
see
underlines and deletions formatted in two specific colors and formats but
doesn't want other users' track change preferences to influence the
display.
He also doesn't want to have to manually format the changes. We tried a
"find
& replace" to try to find text with underlined formatting, but it could
only
find the character formatting, not track changes' version of underlining.

Thanks, in advance. Any suggestions would be much appreciated.



Here is the code for a macro I wrote to do this a couple of years ago. I
just tested it and it works. The process is a little complicated.

1. Make sure Track Changes is turned *off* on the document you're working
on.

2. Run the macro below

3. Here's the complicated part. Even though they've now been given
independent formatting, if you accept or reject all the track changes in the
document now you would still lose the deletions or the insertions.
Therefore, what I found works is to start a new document, turn track changes
on for that (blank) doc, paste all the contents of the working doc into the
new (text comes in as a new, mega-insertion), then ACCEPT all changes in the
new.

--WilliamW


Sub StrikethroughDeletions()

Number = ActiveDocument.Revisions.Count
For x = 1 To Number
Set myRev = ActiveDocument.Revisions(x).Range
This = ActiveDocument.Revisions(x).Type
If This = 2 Then
myRev.Select
Selection.Font.StrikeThrough = True
End If
If This = 1 Then
myRev.Select
Selection.Font.Underline = True
End If
Next x

End Sub











  #5   Report Post  
Posted to microsoft.public.word.formatting.longdocs
Chip Orange Chip Orange is offline
external usenet poster
 
Posts: 14
Default Convert Track Change Format to "Regular" Word Format


"vsingler" wrote in message
...
Is there a way to "convert" text with track change's underline and
strikethrough formats to text with "regular" underline and strikethrough
format?

We have a document that has been edited with Track Changes turned on -
insertions show with underline and deletions show with strikethrough.The
document's author wants all readers (inside and outside the company) to
see
underlines and deletions formatted in two specific colors and formats but
doesn't want other users' track change preferences to influence the
display.
He also doesn't want to have to manually format the changes. We tried a
"find
& replace" to try to find text with underlined formatting, but it could
only
find the character formatting, not track changes' version of underlining.

Thanks, in advance. Any suggestions would be much appreciated.


And in addition to the macro you've already been given, here's a slight
variation that prevents you from having to do the document copy/paste:

Sub TypeAndStrike()
'
' Converts tracked revisions in the active document into "type and
strike" format.
' It removes all tracked revisions.
'
' written by Chip Orange.
'
Dim chgAdd As Word.Revision

' disable tracked revisions.
If ActiveDocument.Revisions.Count = 0 Then
MsgBox "There are no revisions in this document", vbOKOnly
Else
ActiveDocument.TrackRevisions = False

For Each chgAdd In ActiveDocument.Revisions
If chgAdd.Type = wdRevisionDelete Then
' It's a deletion, so make it strike through and then reject the
change (so the text isn't lost).
chgAdd.Range.Font.StrikeThrough = True
chgAdd.Reject
ElseIf chgAdd.Type = wdRevisionInsert Then
' It's an addition, so underline it.
chgAdd.Range.Font.Underline = wdUnderlineSingle
chgAdd.Accept
Else
MsgBox ("Unexpected Change Type Found"), vbOKOnly + vbCritical
chgAdd.Range.Select ' move insertion point
End If

Next chgAdd
End If


End Sub


Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Converting WordPerfect 12 files to Word 2003 Curious New Users 4 May 19th 23 02:48 PM
How to put graphics on envelopes? Steve Koenig Microsoft Word Help 21 April 29th 23 02:47 AM
take yet another lesson from wordperfect "reveal codes" wordperfect is superior Microsoft Word Help 5 May 11th 09 07:58 PM
hard space between words. Sandy L Microsoft Word Help 7 May 5th 06 08:25 PM
In Word, how can I see all files (*.*) in "save as"? citizen53 New Users 8 April 4th 05 04:56 PM


All times are GMT +1. The time now is 05:49 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"