Sub SingleBeforeDigit()
'Replace Chr(145) with Chr(146) before a digit (as in ’95)
  Dim oRng As Range, iType As Integer
  For iType = 1 To 2
Set oRng = ActiveDocument.StoryRanges(iType)
With oRng.Find
    .ClearFormatting
    .Text = Chr(145) & "([0-9])"
    .Font.Superscript = False 'to avoid footnote reference marks
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
While .Execute
oRng.Characters.First = Chr(146)
Wend
End With
   Next iType
End Sub