Sub BlackText()

Dim Trackstatus As Boolean

'check what it was so you can return to it later
Trackstatus = ActiveDocument.TrackRevisions
'turn tracking off
ActiveDocument.TrackRevisions = False


Selection.Font.Color = wdColorAutomatic
 
 
'return to previous tracked change state
ActiveDocument.TrackRevisions = Trackstatus
       

End Sub