You could, of course, use Word's built-in document compare feature without using track changes while running your code. The built-in document compare feature will generate a result equivalent to a document with track changes.
Alternatively, you would use something like:
Code:
Sub Demo()
Application.ScreenUpdating = False
ActiveDocument.TrackRevisions = True
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWildcards = True
.Text = "…[A-Za-zÀ-ÖØ-öø-ÿ0-9]"
.Wrap = wdFindStop
.Forward = True
End With
Do While .Find.Execute
.Characters.First.InsertAfter " "
.Collapse wdCollapseEnd
Loop
End With
Application.ScreenUpdating = True
End Sub