Changebars or Legal Blacklines

[Ken S]

Is there any way to leave the "legal blacklines"
(changebars to me) in the final document's margins for the
accepted changes after performing a COMPARE AND MERGE
DOCUMENTS operation?

The changebars disappear when you accept or reject each
change!

TIA

Ken

 

[Margaret Aldis]

Is there any way to leave the "legal blacklines"
(changebars to me) in the final document's margins for the
accepted changes after performing a COMPARE AND MERGE
DOCUMENTS operation?

The changebars disappear when you accept or reject each
change!

Hi Ken

Yes, but ...

The first thing you need to understand is that the revisions (tracked
changes) need to be left in the document - the change bars are simply one
way of showing revisions (a 'view' question) where the 'inserted' text is in
normal font, and the 'deleted' text hidden, plus the change bar in the
chosen position.

The second important point is that if you are planning to send a document in
Word format to other people, the way they view the revisions is up to them -
so if you want them to see change bars (and perhaps not see the exact detail
of the change) you will need to send in PDF or hard copy.

Finally, in Word 2002 there is no provision in the user interface to set
deletions to display hidden. This was a nasty mistake which has been
rectified in 2003. If you are using Word 2002 you need to change the deleted
text mark using the following:

Options.DeletedTextMark = wdDeletedTextMarkStrikeThrough

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

Or you can use the following macro to do everything at once:

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

 

[Ken S]

OK, Thanks Margaret!!

Ken

-----Original Message-----


Hi Ken

Yes, but ...

The first thing you need to understand is that the revisions (tracked
changes) need to be left in the document - the change bars are simply one
way of showing revisions (a 'view' question) where the 'inserted' text is in
normal font, and the 'deleted' text hidden, plus the change bar in the
chosen position.

The second important point is that if you are planning to send a document in
Word format to other people, the way they view the revisions is up to them -
so if you want them to see change bars (and perhaps not see the exact detail
of the change) you will need to send in PDF or hard copy.

Finally, in Word 2002 there is no provision in the user interface to set
deletions to display hidden. This was a nasty mistake which has been
rectified in 2003. If you are using Word 2002 you need to change the deleted
text mark using the following:

Options.DeletedTextMark = wdDeletedTextMarkStrikeThrough

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

Or you can use the following macro to do everything at once:

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 - Microsoft Word MVP
Syntagma partnership site: http://www.syntagma.co.uk
Word MVP FAQ site: http://www.mvps.org/word


.

 

[Charles Kenyon]

I don't know of any way built in. You can print out the marked-up document
before your accept the changes and use it for a reference.

Otherwise, if it is important enough, you could insert your own marks
manually by drawing lines using the drawing toolbar. (Turn off track changes
before you add these.)

I think I would approach it by seeing if the deleted text could be formatted
as hidden. This would give you underlined inserted text with your change
bars before you accept changes. Is that close enough? Below is a toggle
macro that should work but I haven't fully tested it. It was written in Word
2002 but should work any version of Word that takes VBA.

Sub DeletionsHideShowToggle()
'
' DeletionsHideShowToggle procedure written by Charles Kyle Kenyon
' 21 October 2003
' When deletions have been marked using Track Changes this procedure
' hides them for printing with only insertions displayed.
' Copyright 2003, Charles Kyle Kenyon, Madison, Wisconsin, USA
' All rights reserved.
'
Dim vFormatStatus As Variant ' variable for deleted text format options
vFormatStatus = Options.DeletedTextMark ' get current status
If vFormatStatus <> wdDeletedTextMarkHidden Then ' test current status
' Change to hidden text
Options.DeletedTextMark = wdDeletedTextMarkHidden
MsgBox _
Prompt:="Remember to restore the usual strike-through
formatting" _
& "for deleted text by clicking on Hide / Show Deletions.",
_
Title:="Reminder!" ' Reminder to return display to default
Else ' Change back
Options.DeletedTextMark = wdDeletedTextMarkStrikeThrough
End If
End Sub

This could be changed to also get rid of the coloring and underline for the
inserted text at the same time.

I have this in a template with the macro and a toolbar accessing it that I
would be happy to send you if you send me your email address. You can send
me email at (e-mail address removed) by deleting
"remove.no.spam." from the email address.

--

Charles Kenyon

Word New User FAQ & Web Directory:
<URL: http://addbalance.com/word/index.htm>

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide)
<URL: http://addbalance.com/usersguide/index.htm>

See also the MVP FAQ: <URL: http://www.mvps.org/word/> which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.