Can I add "Plc [0-9]{1,}%"

Hello From Steved Thankyou in Advance.

Can I add "Plc [0-9]{1,}%" to the below macro or do I have to have 2 macro's
please.

Sub Win()
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="Win [0-9]{1,}%", MatchWildcards:=True,
Wrap:=wdFindContinue, Forward:=True) = True
Selection.Paragraphs(1).Range.Delete
Loop
End With
End Sub

Greg
Sat May 27 21:14:49 CDT 2006

Did you try?

Sub WinOrPlc()
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="Win [0-9]{1,}%", MatchWildcards:=True,
Wrap:=wdFindContinue, Forward:=True) = True
Selection.Paragraphs(1).Range.Delete
Loop
Do While .Execute(FindText:="Plc [0-9]{1,}%", MatchWildcards:=True,
Wrap:=wdFindContinue, Forward:=True) = True
Selection.Paragraphs(1).Range.Delete
Loop
End With
End Sub

--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word.


Steved wrote:
> Hello From Steved Thankyou in Advance.
>
> Can I add "Plc [0-9]{1,}%" to the below macro or do I have to have 2
> macro's please.
>
> Sub Win()
> Selection.HomeKey wdStory
> Selection.Find.ClearFormatting
> With Selection.Find
> Do While .Execute(FindText:="Win [0-9]{1,}%", MatchWildcards:=True,
> Wrap:=wdFindContinue, Forward:=True) = True
> Selection.Paragraphs(1).Range.Delete
> Loop
> End With
> End Sub

Steved
Sat May 27 21:25:01 CDT 2006

Hello Greg

Yes I did with the exception, I left out Loop

Thankyou.

"Greg Maxey" wrote:

> Did you try?
>
> Sub WinOrPlc()
> Selection.HomeKey wdStory
> Selection.Find.ClearFormatting
> With Selection.Find
> Do While .Execute(FindText:="Win [0-9]{1,}%", MatchWildcards:=True,
> Wrap:=wdFindContinue, Forward:=True) = True
> Selection.Paragraphs(1).Range.Delete
> Loop
> Do While .Execute(FindText:="Plc [0-9]{1,}%", MatchWildcards:=True,
> Wrap:=wdFindContinue, Forward:=True) = True
> Selection.Paragraphs(1).Range.Delete
> Loop
> End With
> End Sub
>
> --
> Greg Maxey/Word MVP
> See:
> http://gregmaxey.mvps.org/word_tips.htm
> For some helpful tips using Word.
>
>
> Steved wrote:
> > Hello From Steved Thankyou in Advance.
> >
> > Can I add "Plc [0-9]{1,}%" to the below macro or do I have to have 2
> > macro's please.
> >
> > Sub Win()
> > Selection.HomeKey wdStory
> > Selection.Find.ClearFormatting
> > With Selection.Find
> > Do While .Execute(FindText:="Win [0-9]{1,}%", MatchWildcards:=True,
> > Wrap:=wdFindContinue, Forward:=True) = True
> > Selection.Paragraphs(1).Range.Delete
> > Loop
> > End With
> > End Sub
>
>
>