Track Changes check in a macro?

[pjs15]

I have a macro that cleans up a Word document, doing things like changing line breaks to paragraph marks, changing curly quotes to regular ones, changing double hyphens to an em-dash, and the like. If the document comes in with Track Changes on, and I execute the macro without turning that function off, it goes into an endless loop and crashes Word.



Is there a way to have the macro begin with a command to check if Track Changes is on and, if yes, to turn it off?

Thanks for any help.

[macropod]

Yes, that can be done, but even that might not be sufficient. Typically, a Find/Replace macro, for instance, needs to be coded so it processes the document backwards. That is typically achieved by changing:
.Forward = True
and, if your code uses it
.Collapse wdCollapseEnd
to:
.Forward = False
and
.Collapse wdCollapseStart
respectively.

[Charles Kenyon]

Dim bTrackChanges As Boolean
Let bTrackChanges = ActiveDocument.TrackRevisions
Let ActiveDocument.TrackRevisions = False
' Your code here
Let ActiveDocument.TrackRevisions = bTrackChanges

Note that often a password is needed to turn off track changes.

[pjs15]

Many thanks, Charles. That certainly works. I discovered the proper wording for Track Changes, and starting the macro with this also works:

ActiveDocument.TrackRevisions = False

[macropod]

Do note that switching Tack Changes off means the changes made by your macro won't be tracked.