Sub PunctuationToMinus()
' Paul Beverley - Version 13.04.24
' Finds punctuation and changes to minus sign

trackit = False

newChar = ChrW(8722)

searchChars = "-" & ChrW(8211) & ChrW(8212) & Chr(30)

myTrack = ActiveDocument.TrackRevisions
If trackit = False Then ActiveDocument.TrackRevisions = False
Set rng = Selection.Range.Duplicate

For i = 1 To 1000
  rng.MoveEnd , 1
  If InStr(searchChars, Right(rng, 1)) > 0 Then
    rng.Start = rng.End - 1
    gotChar = True
    Exit For
  End If
  DoEvents
Next i
If gotChar = False Then
  Beep
Else
  rng.Select
  Selection.InsertAfter Text:=newChar
  Selection.Collapse wdCollapseEnd
  rng.Delete
End If
ActiveDocument.TrackRevisions = myTrack
End Sub