[Graham Mayor]

Add the following macro to a toolbar button or keyboard shortcut
http://www.gmayor.com/installing_macro.htm and it will remove all extra
spaces from your document.

Sub RemoveExtraSpaces()
With Selection
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "([ ]){1,}"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute replace:=wdReplaceAll
End With
End With
End Sub


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org

Michelle wrote:
I am trying to train myself to not put 2 spaces between sentences
anymore. I have changed the Spelling & Grammar setting to 1 space.
This however does not automatically change the spacing. I thought
maybe there would be a way to autocorrect this so that as I am typing
it corrects itself automatically instead of having to change it in
spellcheck. I can't seem to get the spellcheck to "correct all" and
when I try to find and replace all, well it doesn't work right. If
you know of a way to make this autocorrect that would be great.