applying macro to a selected text only

[James]

Hi

Is there a way to apply a macro to a selected text only, whether the text is
a word, phrase, sentence, or paragraph? The macro is rather simple, a
recorded macro that removes vowels:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[aeiouAEIOU]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[Graham Mayor]

Change
.Wrap = wdFindContinue
to
.Wrap = wdFindStop


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

My web site www.gmayor.com

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

 

[James]

Great! Thanks a lot.

Change
.Wrap = wdFindContinue
to
.Wrap = wdFindStop


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

My web site www.gmayor.com

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

Hi

Is there a way to apply a macro to a selected text only, whether the
text is a word, phrase, sentence, or paragraph? The macro is rather
simple, a recorded macro that removes vowels:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[aeiouAEIOU]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[adre77]

Do you know how can I do this in Excel?
I am trying to create a macro to apply the same border format to a selected
range of cells. No luck so far... Any ideas?

Change
.Wrap = wdFindContinue
to
.Wrap = wdFindStop


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

My web site www.gmayor.com

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

Hi

Is there a way to apply a macro to a selected text only, whether the
text is a word, phrase, sentence, or paragraph? The macro is rather
simple, a recorded macro that removes vowels:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[aeiouAEIOU]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

[Graham Mayor]

Ask Excel questions in an Excel forum. This one is for Word.

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

My web site www.gmayor.com

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

Do you know how can I do this in Excel?
I am trying to create a macro to apply the same border format to a
selected range of cells. No luck so far... Any ideas?

Change
.Wrap = wdFindContinue
to
.Wrap = wdFindStop


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

My web site www.gmayor.com

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

Hi

Is there a way to apply a macro to a selected text only, whether the
text is a word, phrase, sentence, or paragraph? The macro is rather
simple, a recorded macro that removes vowels:

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[aeiouAEIOU]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub