Microsoft Office Forums - View Single Post - [Solved] Do not add two spaces after Mr. or Ms.

jeffreybrown · 04-23-2016, 04:11 PM

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

Code:

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?