Finding and Deleting Rows

Sorry, I should have said use "Else", not "Else If". You only need "Else If" when you're checking another condition.

And to check a whole word, you could put a space in front of and behind the text you entered in the input box.

Also, if you wanted to always locate rows with a particular text in it, simply hardcode that text into the macro instead of using an input box.

Lastly, if you need to check a cell's first and last words, rewrite the macro to accept a string for each and rewrite the If-Then-Else If to check for them.

To Cristian Iascano (and anyone else with the same issue):
Hi. If you changed the macro's IF statement to execute an ELSE IF statement containing the delete row command when the searched text is not found, you might have what you need to keep rows with the searched text. (See below for recommended changes to title, inputbox, and If statement.)

Sub DeleteRowWithOutSpecifiedText()
Dim sText As String

sText = InputBox("Enter text for Row to be kept:")
Selection.Find.ClearFormatting
With Selection.Find
.Text = sText
.Wrap = wdFindContinue
End With
Do While Selection.Find.Execute
If Selection.Information(wdWithInTable) Then
'Do nothing.
Else If
Selection.Rows.Delete
End If
Loop
End Sub

Thanks a ton! Works great!

This code is very helpful but how can i change the macro to only keep what i put in the inputbox and deleted everything else

Thanks a lot! You saved me a couple of hours

Great Job!!! Saved Alots minutes.. Thanks alot

Excellent.
I was searching for this code since long time. Thank you Mr. Allen Wyatt.

Monday, July 11, 2016

I am looking for a "one-step" MACRO or MODULE process for a 1,048-page file which I need to JUST EXTRACT ONLY CERTAIN ROWS of TABLES to be inserted into an EXCEL file. This module is to FIND and then EXTRACT only two rows from ONLY "certain" tables that have the same unique identifiers (where each column and row have the same row title and its TEXTS)...
This file resulted in an MS Word 2013 document with lots of diagrams, graphics, tables, textual paragraphs spread out throughout AFTER I had merged like hundreds of Word documents into this 1 master Word document, thus each beginning section separated by a “page break” is a different document that got merged and each has its own differently titled TOP HEADER which is NOT IN A ROW. I need to pull in each of these header as well as pull only the two rows of the tables with only those unique identifiers and once they’re extracted, they can stay in another new MS WORD document.
I was thinking of using "wildcards" but then how? The length of those texts within each of those 3 rows vary...thus I guess we are looking at using VBA code to find "STRINGS"?? If that's a proper way to call it or look at it.

There are 2 columns on TOP ROW of the table: 1st column is "Verification Case ID: Testing text, testing text" 2nd column is "Verification Case Name: Testing text, testing text"

There’s 1 column to LAST ROW of the table: "Verification Objective: Testing text, testing text"

If you have an email address, I can send you an attached EXAMPLE DOCUMENT to better understand. I know this can be done, I’ve done something similar to this before but lost my macro/module and it's been 15 years since I last did VBA coding for MS WORD. Thank you kindly and in advance for any help you can muster. I need this ASAP if you can. I can be e-mailed at greatcareer4me@yahoo.com

Is there a way to run this macro but skip those that have the specified word and delete those that don't?

I have Word documents which contains paragraphs. The sentences are in multiple lines in a table form.

Your macro is brilliant with deleting a line containing a text. Is it possible to modify it so that if I give the first and last word of a paragraph, the whole sentence is deleted?

I found a macro which works IF I convert the table to text which, I do not want to do.

Thank you in advance.

The macro can get into an endless loop under some circumstances. The modified macro to avoid this is:

Sub DeleteRowWithSpecifiedText()
Dim sText As String

sText = InputBox("Enter text for Row to be deleted")
Selection.Find.ClearFormatting
With Selection.Find
.Text = sText
.Wrap = wdFindContinue
End With
Do While Selection.Find.Execute
If Selection.Range.Text = "" Then Exit Sub
If Selection.Information(wdWithInTable) Then
Selection.Rows.Delete
End If
Loop
End Sub

VeeCee,
replace the statement:
sText = InputBox("Enter text for Row to be deleted")

with:
sText = "My text to search for"

Great.Is it possible to create a macro that does the same job without the input text? Meaning the text is in the macro and it does the job on executing the macro.

thanks for the code but it didn't work for me using MS Word 2010. It Gets about 1/4 the way through my 970 page document then stops working and it never actually deletes a matching row. kind of odd.

please I'm looking for a macro that search the text in the right cell, and replace it in the next left cell, the replacement must be limited only in the next left cell. and the same for the rest of the whole column.
best regards and many thanks

Yesterday I asked help for such simple problem because i couldn't find the parameter list that I found today. Got it fixed with MatchWholeWord :)

This helped me quite a lot at my work. I get employee lists that I have to moderate every 3 weeks for our customer.

My only problem was that the macro also picked up a particular short term from one of the names and deleted two "extra" rows. Is it possible to make the macro pick only "whole words" instead of finding the string in any form?

Thank you very much for this VBA code. This saved me several hours of work today. Much appreciated. :-)

BTW, this code worked for me in Work 2010.