remove rows without certain word

ewso · #1 05-27-2017, 09:04 AM

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

gmayor · #2 05-27-2017, 08:25 PM

By 'rows' I assume that you mean paragraphs? In theory this could be done with a macro, but not without knowing what else is in the document. For example you say that the words are often 'pressed up' against other words like those shown, which implies that sometimes they are not. What if they are legitimate parts of other words - like 'WASTREL' or "WASH"? This question requires more detail or a document example.

ewso · #3 05-27-2017, 11:18 PM

Quote:

Originally Posted by gmayor

By 'rows' I assume that you mean paragraphs? In theory this could be done with a macro, but not without knowing what else is in the document. For example you say that the words are often 'pressed up' against other words like those shown, which implies that sometimes they are not. What if they are legitimate parts of other words - like 'WASTREL' or "WASH"? This question requires more detail or a document example.

Gmayor, yes they are paragraphs. Each of the paragraphs or rows only take up about half of a line and go down the whole document. Sometimes the words are on their own and some times they are pressed against other letters or numbers, though they are never pressed together with other letters to make legitimate words like wastrel or wash. It's almost always numbers the words are pressed against like this...

abcd1234WAS or abcd1234WERE

But the paragraphs or rows that only have abcd1234, I need to remove.

Thanks

gmayor · #4 05-28-2017, 12:22 AM

In that case

Code:

Sub Macro1()
Dim oPara As Paragraph
    For Each oPara In ActiveDocument.Paragraphs
        If InStr(1, oPara.Range.Text, "WAS") = 0 And _
           InStr(1, oPara.Range.Text, "WERE") = 0 Then
            oPara.Range.Delete
        End If
    Next oPara
End Sub

ewso · #5 05-28-2017, 01:27 AM

That works perfectly gmayor! thanks

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to remove blank spaces between rows in a table,	Jamal NUMAN	Word	2	04-28-2017 12:59 PM
Delete All empty Rows - Print - Undo all Rows deleted	Bathroth	Word VBA	1	10-01-2014 01:40 PM
Remove rows less than 10	gbaker	Excel Programming	18	07-21-2014 04:51 AM
Grouping table rows to prevent individual rows from breaking across pages	dennist77	Word	1	10-29-2013 11:39 PM
How to remove blank rows from a specified range?	Learner7	Excel	1	04-19-2011 02:45 AM