Help needed to remove the track change bar on WORD Doc VBA

[jCheah]

Does anyone know how to remove the track change bar at the side
programatically?

I know there is a common way of doing this by going to Reviewing ->
Accept or Reject All Changes. Or use the
VBA code as follow:

ActiveDocument.AcceptAllRevisions

But by doing this, it will remove all the Track Change bars at the
side, but it also removes all the corrections. For example, if I
corrected word "James" to "Joey" in the document, the document would
still show both words ("James" with strikethrough and "Joey" without
strikethrough) if you have the Track Change Option ON. But once you
hit on the Accept all changes, MS word removes all the Track change
bars and all the corrections as well (In this case, the word "James"
will be removed).

All I need to know is a way to remove the Track change bars WITHOUT
removing the corrections. Can anyone help?? Thanks.

 

[Jay Freedman]

You can't remove the bars while revisions are still in the document, but you
can change their color to white:

Options.RevisedLinesColor = wdWhite

To turn them back on, set the color to Auto:

Options.RevisedLinesColor = wdAuto

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.