Can I find a string and delete whole line?

[Ed]

I have page numbers which must be deleted. They are all "(57 spaces)D -(1-4
numbers)". Can I do a search for the "(57 spaces)D -", then select the
whole line that string is on and delete it? ANd do it in a loop through the
whole document?

Thanks for all your help.
Ed

 

[Doug Robbins - Word MVP]

HI Ed,

The following code will do it:

Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="[ ]{57}D -", MatchWildcards:=True,
Wrap:=wdFindContinue, Forward:=True) = True
Selection.Range.Bookmarks("\line").Range.Delete
Loop
End With

See the article “Finding and replacing characters using wildcards” at:

http://www.mvps.org/word/FAQs/General/UsingWildcards.htm

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

 

[Ed]

Thanks, Doug.

Ed

HI Ed,

The following code will do it:

Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="[ ]{57}D -", MatchWildcards:=True,
Wrap:=wdFindContinue, Forward:=True) = True
Selection.Range.Bookmarks("\line").Range.Delete
Loop
End With

See the article "Finding and replacing characters using wildcards" at:

http://www.mvps.org/word/FAQs/General/UsingWildcards.htm

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP

I have page numbers which must be deleted. They are all "(57 spaces)D -(1-4
numbers)". Can I do a search for the "(57 spaces)D -", then select the
whole line that string is on and delete it? ANd do it in a loop through the
whole document?

Thanks for all your help.
Ed