OK, use:
…([A-Za-zÀ-ÖØ-öø-ÿ0-9]@>)
for the Find text, as in:
Code:
Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute FindText:="…([A-Za-zÀ-ÖØ-öø-ÿ0-9]@>)", ReplaceWith:="... \1", _
MatchWildcards:=True, Format:=False, Wrap:=wdFindContinue, Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub
This should prevent the words splitting if you're using Track Changes, since the whole word is replaced.