Tracking Changes - printing with Change Bars only

[mary.j.oliver]

I need to print a document showing JUST change bars and
NOT the strikethroughs (to deliver document revisions to
customers).
When I select the following options, I get change bars but
I also get deletions.
Has anyone else experienced this? Is it a known bug?
Track Changes option selections:
Insertions: (none)
Formatting: (none)
Balloons: no selection (box not checked)
Changed Lines/Mark: Outside Border

NOTE: Word 2002 track changes defaults are linked to the
user, not to the file. So when you open this file, you
won't see the options I have set; you'll have to set them
up yourself.

Thank you!

 

[Margaret Aldis]

Hi Mary

The problem is that MS removed the ability to change the deleted text
mark-up in the options in Word 2002 - so you can't set deleted text to
hidden or a different colour.

To print change bars only you can run
Options.DeletedTextMark = wdDeletedTextMarkHidden

from the immediate window, and make the rest of the settings by hand, but
the following macro will do the lot:

Sub ShowChangebarsOnly()
With Options
' no text marking when printed
.InsertedTextMark = wdInsertedTextMarkNone
.InsertedTextColor = wdAuto
.DeletedTextMark = wdDeletedTextMarkHidden
.DeletedTextColor = wdByAuthor
.RevisedPropertiesMark = wdRevisedPropertiesMarkNone
.RevisedPropertiesColor = wdAuto
' print change bars
.RevisedLinesMark = wdRevisedLinesMarkRightBorder
.RevisedLinesColor = wdAuto
End With
' revisions visible and printing, no balloons
With ActiveWindow.View
.RevisionsMode = wdInLineRevisions
.ShowRevisionsAndComments = True
.ShowFormatChanges = False
.RevisionsView = wdRevisionsViewFinal
End With
End Sub