Code:
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.