Change Bars

[steve klatzkin]

In our effort to exercise the various features used by
the technical staff and DM for publishing, we discovered
that the track changes feature has been altered
significantly.

Previously, any documents that were in Word were revised
using the track changes feature to identify changes from
the previous release. DM selected change bars only for
publishing so that additions were not highlighted
anddeletions were not displayed in the published item.
Word 2002 does not allow us to suppress the view of
deletions. The only mechanism available to remove
deletions is to accept all changes, thus losing the
ability to mark the changes with a change bar.

 

[Jay Freedman]

Hi, Steve,

In Word 2002, the field for deletion formatting was removed from the Track
Changes option page -- we don't know why, but it was obviously a mistake. It
returned in Word 2003.

Fortunately, the formatting can still be set from a macro. Put this macro
into the template(s) attached to the documents, and add a toolbar button
pointing to the macro. It will toggle between [strikethrough deletions, blue
insertions] and [hidden deletions, auto insertions], without affecting the
change bars.

Sub ToggleTrackChangesDisplay()
With Options
If .DeletedTextMark = wdDeletedTextMarkHidden Then
.DeletedTextMark = wdDeletedTextMarkStrikeThrough
.InsertedTextMark = wdInsertedTextMarkColorOnly
.InsertedTextColor = wdBlue
Else
.DeletedTextMark = wdDeletedTextMarkHidden
.InsertedTextMark = wdInsertedTextMarkNone
.InsertedTextColor = wdAuto
End If
End With
End Sub

 

[Greg Maxey]

Steven

If all you want is the change mark in the margin you can
run the following macro and print showing markup:

Sub TrackChanges()


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

 

[omar0117]

I tried applying the macro and it makes the document look as expected o
the screen. However, I am unable to print the document following th
application of the macro - word hangs.

Any suggestions