Hi! This is the fastest way, otherwise you'll have to work with a range & then move it one char to the left in each loop:
Code:
With selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchWildcards = True
.text = Chr(9) & "1([!0-9])"
.Replacement.text = Chr(9) & "-\1"
.Execute Replace:=wdReplaceAll
.text = Chr(9) & "-"
.Replacement.text = ""
.Replacement.Font.ColorIndex = wdRed
.Execute Replace:=wdReplaceAll
End With
Notes: 1) there's no need for {1}; 2) Chr(9) can be used instead of vbTab, which I did; 3) Instead of 'selection.range.Find' you can use 'ActiveDocument.range.Find' & delete 'selection.HomeKey Unit:=wdStory, Extend:=wdMove' making the code shorter; 4) Tracking changes may be faulty (for an unknown reason, at least in my Word 2016), so disabling it can do no harm because the changes will be colored red & visible. Or you can color changes, say, blue if there are red strings in your doc.