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

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Steved - 28 May 2006 02:41 GMT

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

Reply to this Message

Greg Maxey - 28 May 2006 03:14 GMT

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

Signature

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

> Hello From Steved Thankyou in Advance.
>
[quoted text clipped - 11 lines]
> End With
> End Sub

Reply to this Message

Steved - 28 May 2006 03:25 GMT

Hello Greg

Yes I did with the exception, I left out Loop

Thankyou.

> Did you try?
>
[quoted text clipped - 28 lines]
> > End With
> > End Sub

Reply to this Message