Track Changes query

[Denise]

Hi, I have a document (Word 2002, XP) and it has been edited using "track
changes". I want to be able to print it out ACCEPTING the changes (thereby
eliminating the colour codes and side balloon with the comments), BUT
(always a but) I want to be able to see where the changes where.

Therefore the document would appear without any changes EXCEPT for in the
column where there would be the vertical line that appears with a track
change.

I know this is a bit of a tall order, but anyone help would be appreciated.

Thanks

 

[Margaret Aldis]

Hi Denise

You need to mark the deletions as hidden, the insertions as normal text, and
turn change bars on (and balloons off). The problem is that in Word 2002 MS
removed the ability to change the deleted text mark-up! (it's back in 2003).

However, provided you have 2002 SP1 you can make this change using VBA. Use
F11, Ctrl-G to display the immediate window and type:

Options.DeletedTextMark = wdDeletedTextMarkHidden

You can 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

 

[Denise]

Thanks - it worked

Hi Denise

You need to mark the deletions as hidden, the insertions as normal text, and
turn change bars on (and balloons off). The problem is that in Word 2002 MS
removed the ability to change the deleted text mark-up! (it's back in 2003).

However, provided you have 2002 SP1 you can make this change using VBA. Use
F11, Ctrl-G to display the immediate window and type:

Options.DeletedTextMark = wdDeletedTextMarkHidden

You can 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

 

[Margaret Aldis]

Thanks for the feedback - glad you got it sorted