The following macro does its job, but I'm not satisfied with it. Is there a better way to obtain the same result? Thanks!
Code:
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