Do not add two spaces after Mr. or Ms.

[jeffreybrown]

I'm currently using this script to add two spaces after a period.

Sub FixTwoSpacesAfterPeriod()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "([.\?\!]) {1,}"
        .Replacement.Text = "\1  "
        .Execute Replace:=wdReplaceAll
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

This script also add two periods after Mr. and Ms.



What type of modification is required to prevent this from happening?