Track Changes: How to show "just markup output"

G

Greg

Ron,

I can't confirm as I am not on a Word2003 machine at the
moment, but I think you should be able to do this with the
user interface if you select hidden as the deleted text
mark and none as the inserted text mark with Tools>Track
Changes>Highlight Changes>Options

If not the following macro should certainly work:

Sub TrackChanges()

With Application.Options
.RevisedLinesMark = wdRevisedLinesMarkOutsideBorder
.RevisedLinesColor = wdAuto
.DeletedTextMark = wdDeletedTextMarkHidden
.InsertedTextColor = wdAuto
.InsertedTextMark = wdInsertedTextMarkNone
.RevisedPropertiesMark = wdRevisedPropertiesMarkNone

End With
End Sub

Need help installing macros? See:
http://www.gmayor.com/installing_macro.htm

-----Original Message-----
I'd like to get Word 2003 to show me output that looks
like "final showing markup," but I only want it to show
only the changes and not the text that hasn't changed.
There is a P)rint, (Print what=List of Markup) feature
which is close, but that prints something looking like a
transaction log and I need to see the output as it would
appear in Word with change bars.
 
R

Ron Barrett

Greg,

Thank you, this looks like it locates the place in the object model where display can be turned on or off and with different options. The trouble I'm finding is that I didn't see an object that would allow me to hide the "original" text (text that hasn't been changed since change tracking was turned on). Is there any way to hide the original text?

Thanks,
Ron
 
C

Chad DeMeyer

Ron,

Something like this should do it:

Sub HideUnchangedText()
Dim oChange As Revision
ActiveDocument.Content.Font.Hidden = True
For Each oChange In ActiveDocument.Revisions
oChange.Range.Font.Hidden = False
Next oChange
End Sub

Regards,
Chad DeMeyer


Ron Barrett said:
Greg,

Thank you, this looks like it locates the place in the object model where
display can be turned on or off and with different options. The trouble I'm
finding is that I didn't see an object that would allow me to hide the
"original" text (text that hasn't been changed since change tracking was
turned on). Is there any way to hide the original text?
 
G

Greg

Ron,

Sorry for wasting your time. I thought you only wanted
to see the revision bar in your document. After reading
your post again a see that you want to hide unchanged
text. Chad's code works. Turn off track changes before
running it.
-----Original Message-----
Greg,

Thank you, this looks like it locates the place in the
object model where display can be turned on or off and
with different options. The trouble I'm finding is that
I didn't see an object that would allow me to hide
the "original" text (text that hasn't been changed since
change tracking was turned on). Is there any way to hide
the original text?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top