remove rows without certain word

[ewso]

I have several rows in a document that don't contain certain words and I need to remove them all and keep only the rows with the words. The two words are WERE and WAS. The words are often pressed up against other words in the row, like this...



abcdWASabcd
abcdWEREabcd

It's ok for the rows to be like that, but I need to remove every row that doesn't contain those words. The rows are not in a table. It's just a bunch of rows of text.
Can this be done with a macro?

Thanks