Since, I was facing the same problem (not able to highlight or rather
strike off the deletions while tracking changes) I copied this program
and ran it in vb. It worked perfectly. But, Its giving another problem
now. I am not able to highlight the insertions. The options given for
it is never getting activated. It automaticall goes to the 'none'
option. Does this following program have some problems? Please help

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


--
sumeshptPosted from http://www.pcreview.co.uk/ newsgroup access

What happens if you make InsertedTextColor = wdByAuthor ?

sumeshpt wrote:

Since, I was facing the same problem (not able to highlight or rather
strike off the deletions while tracking changes) I copied this program
and ran it in vb. It worked perfectly. But, Its giving another problem
now. I am not able to highlight the insertions. The options given for
it is never getting activated. It automaticall goes to the 'none'
option. Does this following program have some problems? Please help

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