track changes color

[Sue]

A few months ago there was a discussion about a macro for
changing the colors of the insertion and deletion for
track changes in Word 2002. I printed out the comments
and the macro but now cannot find my papers. Would someone
please point me in the direction the macro is located.
Thank you very much.

 

[Greg]

Sue,

You should be able to apply a form of the following:


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 moving
' (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