Help making VBA code more efficient

[Guest]

Office Pro 2003

The following code works well but I am too much a novice to do it efficiently.

The code finds Soft Return, Hard Return, vbLf and three spaces for two
(Normally there are two spaces after a period. The code below makes three
spaces 2+1. Therefore, I must reset three with two)

Sub FindReplaceHardSoftReturn()
With Selection.Find
.Text = vbLf 'Line Feed Chr(10)
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With

With Selection.Find
.Text = "^l" 'Soft Return Chr(11)
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With

With Selection.Find
.Text = "^p" 'Hard Return Chr(13)
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With

With Selection.Find
.Text = " " 'Three spaces replaced with two
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With

End Sub


Any thoughts would be helpful.


Dennis

 

[Doug Robbins]

Sounds like this might help:

See the article "Clean Web Text" at:

http://word.mvps.org/FAQs/Formatting/CleanWebText.htm


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Guest]

Thanks Doug,

Any thoughts on how to make the code more efficient?

Dennis

 

[Graham Mayor]

See http://www.gmayor.com/replace_using_wildcards.htm
or even
http://www.gmayor.com/Zips/stripmail.zip

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Suzanne S. Barnhill]

You might see http://gregmaxey.mvps.org/Clean_Up_Text.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.