[Greg In Atl]

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
--
Greg in Atlanta

[Greg In Atl]

I almost forgot, this is for Word 2003
--
Greg in Atlanta


"Greg In Atl" wrote:

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
--
Greg in Atlanta

[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"