Delete a line if a word is NOT found

[John Smith]

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.

 

[Helmut Weber]

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

 

[John Smith]

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

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