Word 2002 and Track Changes

  • Thread starter Thread starter Terri
  • Start date Start date
T

Terri

It seems that Microsoft considers Tracking Changes only to
be used when 'collaborating' on a document with multiple
users? We recently upgraded to XP and Office 2002 and the
option to hide deleted text is gone! We want this option
back. :o(
In my organization (large programming area with many large
systems) we have many system documents that we update on a
regular basis. We mark the changes to the document so that
reviewers and users can easily see in context what is new
or changed (in addition to the Nature of Changes page). We
store all our documents in an CM system and usually only
need to view documents electronically. But when a document
is one that needs to be referenced frequently we will also
create hard copies. When we print we want only change
lines in the margins. Other than manually deleting all
deleted text, is there a way to NOT display deleted text
and still track the change?
 
I am having a similar problem, I would like to print a
hardcopy without the markups. There is an option to
print with markup but not without. If I choose document
it still prints the markup. I would like to have more
information on tracking, the XP version seems to be very
different, thanks!
 
Change the view to one without markup, then print.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
Hi Terri

Yes, someone removed control over display of deletions from 2002 (apparently
it is back
in 2003). However, you can still set the deleted text to hidden using VBA:

Options.DeletedTextMark = wdDeletedTextmarkHidden

You can enter this in the Visual basic immediate window (Alt - F11,
Ctrl -G). You only need to run it once.

(You need SP1 or later for this to work, as the first release of 2002
disabled wdDeletedTextMarkHidden too!).

To show change bars only, you can make the rest of the changes manually, but
this 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
 
That will work for Marsha, but I can't print change lines
in the margins without the deleted text being there also.
 
Terri,

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

Sub TrackChanges()
'
' Thanks Shauna!! Shauna Kelly provided me the basic format of
' this macro last year when I started using Word2002.
' Alter which lines run by adding or removing (the apostrophe) before
' each line.

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
 
WOW!
Thank You!
-----Original Message-----
Hi Terri

Yes, someone removed control over display of deletions from 2002 (apparently
it is back
in 2003). However, you can still set the deleted text to hidden using VBA:

Options.DeletedTextMark = wdDeletedTextmarkHidden

You can enter this in the Visual basic immediate window (Alt - F11,
Ctrl -G). You only need to run it once.

(You need SP1 or later for this to work, as the first release of 2002
disabled wdDeletedTextMarkHidden too!).

To show change bars only, you can make the rest of the changes manually, but
this 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

--
Margaret Aldis - Microsoft Word MVP
Syntagma partnership site: http://www.syntagma.co.uk
Word MVP FAQ site: http://www.mvps.org/word




.
 
Thank You. I really appreciate your help!
-----Original Message-----
Terri,

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

Sub TrackChanges()
'
' Thanks Shauna!! Shauna Kelly provided me the basic format of
' this macro last year when I started using Word2002.
' Alter which lines run by adding or removing (the apostrophe) before
' each line.

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

--
Greg Maxey
A peer in "peer to peer" support
Rockledge, FL
Remove the obvious (wham...m) to reply in e-mail



.
 
Back
Top