Do not add two spaces after Mr. or Ms.

jeffreybrown · #1 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?

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Two spaces after a period	mysterytramp	Word	14	11-06-2017 02:01 PM
Spaces in a chart	AIKA	Excel	3	10-27-2015 01:37 AM
Spaces between words, help!	cheffie	Word	2	10-02-2013 01:59 PM
Strange spaces	Trevor_Bauer	Word	1	03-08-2012 11:56 AM
Spaces After Each Word	jnutella	Word	0	03-04-2009 02:00 PM