Word 2002 Track Changes - Deleted Text

  • Thread starter Thread starter Allan
  • Start date Start date
A

Allan

I'd like to mark text that has been inserted with a change
bar, but hide text that has been deleted.
It was a trivial task in Word 2000, but the option appears
to have been removed from Word 2000.
Is there a way?
Can't seem to find an answer anywhere, although some
Knowledge Base articles seem to acknowledge that there are
bugs in the change tracking for Word 2002.
Sure would appreciate any help you can give.
Thanks.
 
You need to use VBA to set the deleted text to hidden,
(Options.DeletedTextMark = wdDeletedTextMarkHidden) as this option was
removed from the User Interface in Word 2002. The rest of the settings can
be made 'by hand' (set change bar printing and inserted text formatting as
in 2000, and print without balloons), 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

Hope this helps
 
Thanks, Margaret. That was exactly what I wanted.
Now, if I could only figure out why this useful piece of
functionality was removed from the product. Guess that
will remain one of the world's trivial unanswered
questions.
Is there a convenient place where the properties/methods
are documented, other than the listing you get by right-
clicking?
 
Hi Allan

I guess someone thought their balloon invention was so great they needed
nothing else - or more likely were too ignorant of documentation standards
to have ever used change bars!

On where to look for properties methods, VBA Help is your friend. Help gets
worse with each version of Word too, but at least so far you can still
access this section by contents. Open up the topic for tha object, and you
will find lists of the properties and methods - conversely, properties and
methods list 'Applies to'.
 
Highlighed deletions, not able to do for insertions in 2002

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. Earlier it was working perfectly. 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
 
Back
Top