Sub SingleBeforeDigit()
  'Replace Chr(145) with Chr(146) before a digit (as in ’95)
  Dim oRng As Range
  Set oRng = ActiveDocument.Range
  Options.AutoFormatAsYouTypeReplaceQuotes = False
With oRng.Find
    .ClearFormatting
    .Text = Chr(145) & "([0-9])" & "[!^02]" 'to avoid footnote ref. marks
    .Replacement.Text = Chr(146) & "\1"
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
End With
  Options.AutoFormatAsYouTypeReplaceQuotes = True
End Sub