View Single Post
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Graham Mayor Graham Mayor is offline
external usenet poster
 
Posts: 19,312
Default Removal of redundant spaces

CTRL+A then CTRL+E then CTRL+L should remove all leading and trailing spaces
whether in the main document area or table cells. No need for a macro.

--

Graham Mayor - Word MVP

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



"Grey Old Man" wrote in message
news
I am attempting a word macro to tidy up a large volume of text. I have a
few
questions that I hope somebody can help me with.

The space bar has been used extensively to indent the text from the left!

I have used:

With Selection
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = " [ ]@([! ])"
.Replacement.Text = " \1"
.MatchWildcards = True
.Wrap = wdFindStop
.Format = False
.Forward = True
.Execute Replace:=wdReplaceAll
End With
End With

to remove multiple spaces but this leaves a single space before the first
capitalized letter.

.....Sentence starts here (multiple leading spaces)

becomes

.Sentence starts here (single leading space)

Any ideas on how to remove the offending single space?


Secondly, trailing spaces have been used in a table. What is the
equivalent
to paragraph mark ^p or new line mark ^l when confined to a table?

Table text ...


Thanks in anticipation.