track changes color

  • Thread starter Thread starter Sue
  • Start date Start date
S

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.
 
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
 
Back
Top