Macro only selected text

[Guest]

I created a macro that replaces paragraph marks with a blank. I only want it
to do this for selected text. Problem is, it does it for non-selected text as
well.

How can I make this macro only perform the replacement for selected text

 

[Guest]

I almost forgot, this is for Word 2003

 

[Helmut Weber]

Hi Greg In Atl,

like this:

Sub T5()
If Selection.Type = wdSelectionIP Then Exit Sub
With Selection.Range.Find
.Text = "^p"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
End With
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"