Track Changes

[Vince]

Hi

Before word 2002, users are able to view and print deleted
text by replacing them with signs like ^, can they do the
same for word 2002? Other than the balloon check box,
there seemed to have no option to change this.

Regards

 

[Greg Maxey]

Vince,

You can use the following macro. I have included several different options
that you can activate or deactivate (there are more).

Sub TrackChanges()
'
' TrackChanges Macro. Thanks Shuana!!
' Alter the which lines run by adding or removing (the apostrophe) before
' each line. To return control to Word Track Changes dialog simply make
changes
' using the track changes dialog box.

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

End With
End Sub

For help installing macros see:
http://www.gmayor.dsl.pipex.com/installing_macro.htm

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

 

[Vince]

-----Original Message-----
Vince,

You can use the following macro. I have included several different options
that you can activate or deactivate (there are more).

Sub TrackChanges()
'
' TrackChanges Macro. Thanks Shuana!!
' Alter the which lines run by adding or removing (the apostrophe) before
' each line. To return control to Word Track Changes dialog simply make
changes
' using the track changes dialog box.

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

End With
End Sub

For help installing macros see:
http://www.gmayor.dsl.pipex.com/installing_macro.htm

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



.
Thanks Greg