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