Macro to hide strikethru text - how to return to default ?

[E Straub]

Thanks Greg,
Installed the macro as instructed on your web site (I
think!) and it seems to work fine.
Only 1 problem.... you say to return control to
Word, "apply changes using the track changes dialog box"
I can't get the text to display in the previous (normal
for Word 2000) view where the deletions show! How to
toggle back and forth ?

Also, I can't believe that Word 2002 no longer has this
selectable somewhere without using a macro!

Thanks,
E

 

[Greg]

E,

I don't know if I can properly answer your question as I
am not at a Word2002 machine at the moment.

A few things. I hate Word2002 Track Changes scheme and
therefore most grateful when Shauna Kelly provided me a
basic macro to set it up the way I used to use it in
Word2000. That is mark the margin, show deleted text in
red stikethrough and inserted text in blue italic. She
sent me a macro similiar to the one I sent you.
Instructions are to run it one time and Word will track
changes as I wanted. If I want to go back to the Word2002
method (which I don't as it is all fouled up) then I just
alter the track change options using the Tools>Track
Changes>Options menu. To go back to my preferred settings
I would run the macro again.

Using the menu I don't think there is a way to alter how
Word2002 displays deleted text. You like it, lump it, or
run the macro. You can have full control of all the
capabilities by altering the macro code to suit your
specific need. I provided you with some common options
that you can toggle on and off by adding or removing the
apostrphe before the line. There are other options (e.g.,
color options) that would require actual changes to the
macro. What specifically do you want? I will take a look
when I get home and see if I can help.

 

[Greg Maxey]

E,

Make your settings with Tools>Options>Track Changes. This should give you
everything put the deleted text. Next run this macro:

Sub TrackChanges()

With Application.Options
.DeletedTextMark = wdDeletedTextMarkStrikeThrough
.DeletedTextColor = wdRed

End With
End Sub
--
\\\\///////////
( @ @ )
----oo00---(_)---00oo----
Greg Maxey
A peer in "peer to peer" support
Rockledge, FL