Track Changes Word XP

[John DeKleine]

I have upgraded from Office 97 to XP and the track changes
feature is now completely different. I have attempted many
combinations of option settings and totally frustrated. I
need to display the track changes margin marks in the
document, and it needs to look like the "Final" version as
if all changes were accepted. Is this possible with this
Version of Word? Please Help. Thank you

 

[Greg Maxey]

John,

You should be able to use the following macro. I have set it up to hide
deletions, show insertions as normal text and keep the margin revision
lines:

Sub TrackChanges()
'
' Thanks Shauna!! Shauna Kelly provided me the basic format of
' this macro last year when I started using Word2002.
' Alter which lines run by adding or removing (the apostrophe) before
' each line.

With Application.Options
.RevisedLinesMark = wdRevisedLinesMarkOutsideBorder
.RevisedLinesColor = wdAuto
' .DeletedTextMark = wdDeletedTextMarkCaret
' .DeletedTextMark = wdDeletedTextMarkStrikeThrough
.DeletedTextMark = wdDeletedTextMarkNone
' .DeletedTextColor = wdRed
' .DeletedTextMark = wdDeletedTextMarkHidden
' .InsertedTextMark = wdInsertedTextMarkItalic
.InsertedTextMark = wdInsertedTextMarkNone
' .InsertedTextColor = wdBlue
' .InsertedTextMark = wdInsertedTextMarkUnderline
' .InsertedTextMark = wdInsertedTextMarkColorOnly
.InsertedTextColor = wdAuto
' .RevisedPropertiesMark = wdRevisedPropertiesMarkColorOnly
' .RevisedPropertiesColor = wdAuto
' .RevisedPropertiesMark = wdRevisedPropertiesMarkColorOnly
' .RevisedPropertiesColor = wdViolet

End With
End Sub



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

 

[John DeKleine]

Greg,
You are the man! This worked perfectly.

Regards.....
John DeKleine