Strange, because for me it works smoothly on your sample.
Try the full code:
Code:
Sub RemoveDashSpace()
Dim oRng As range
If Len(selection.range) = 0 Then
MsgBox "Select the text first", vbCritical
Exit Sub
End If
Set oRng = selection.range
With oRng.Find
.ClearFormatting
.Replacement.ClearFormatting
.text = Chr(30) & Chr(32)
.Replacement.text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End Sub