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 = wdFindStop
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
  Options.AutoFormatAsYouTypeReplaceQuotes = True
End Sub