Delete a line if a word is NOT found

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

John Smith - 30 Jun 2005 11:18 GMT

I would like to delete a line if a keyword is not found. Can this
be done? This is to mimic what grep program does, sort of.

Reply to this Message

Helmut Weber - 30 Jun 2005 13:46 GMT

Hi John,

in case you are talking about paragraphs, not lines:

Dim oPrg As Paragraph
For Each oPrg In ActiveDocument.Paragraphs
If InStr(oPrg.Range.Text, "und") = 0 Then
oPrg.Range.Delete
End If
Next

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Reply to this Message

John Smith - 01 Jul 2005 02:50 GMT

> Hi John,
>
[quoted text clipped - 11 lines]
> "red.sys" & chr(64) & "t-online.de"
> Word 2002, Windows 2000

Thanks. You're right. It's indeed paragraphs. Since my paragraphs
are so short, they are literally lines.

Reply to this Message