|
|
#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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com 
|
| Thread Tools | |
| Display Modes | |
|
|
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 |
Windows 10 
Office 2016
Threaded Mode