delete lines based on criteria word macro

The data in this document is just tab delimited text, they are not in a table. The data need not remain in the same order but since it is not a table im not sure how we can sort it?

You can sort when you're not in a table, but it's still under the table menu. Check it out.

I ask questions sometimes because I believe a coder would need this information to do the coding. I'm not a coder myself. So let's see if one of them drops in.

:)

Would it not be far easier to use Excel and sort it by column E (containing the word 'Welsh') and then just copying & pasting all the Welsh-containing lines back into the Word document. Much easier and faster I would have thought.

Not really, if you can keep it in Word. Most of us know how to accomplish that easily in Excel; some of us know how to accomplish it just as easily in Word.

I immediately felt that this is something highenergystar needs to do regularly or they wouldn't be looking for a macro in the first place. Copying and pasting to Excel and then back again unnecessarily uses system resources. Actually, really good coding never (or rarely) uses "copy/paste". Don't ask me how, but they usually manipulate the data in some other way.

Quick question: Is there a return character at the end of each line?

Ray

Quick question: Is there a return character at the end of each line?

Ray

This is a plain word file and does have carriage returns at the end of each line, it was created by a person who cut and paste the whoel file form a text file into word

the file is a lot more complicated than this it is actually a form of a report and i need to extract only relevant lines, so i cant quite move it to excel
hope this clarifies stuff, i really look forward to you help
sincerely
welsh

This should do it:

Sub RemoveWelshLines()
Selection.HomeKey Unit:=wdStory
Selection.Find.Text = "welsh"
Do While Selection.Find.Execute(FindText:="welsh", Forward:=True, _
            Format:=True) = True
    With Selection
            .Expand Unit:=wdLine
            .Delete
    End With
Loop


Regards.

Ray

This should do it:

Sub RemoveWelshLines()
Selection.HomeKey Unit:=wdStory
Selection.Find.Text = "welsh"
Do While Selection.Find.Execute(FindText:="welsh", Forward:=True, _
            Format:=True) = True
    With Selection
            .Expand Unit:=wdLine
            .Delete
    End With
Loop


Regards.

Ray

what about preserving only the lines with Welsh in it?

Oops. Misread that one, didn't I? D'oh!

Watch this space...

Ray

btw, this code relies on no text being bold. It does 2 sweeps though the list, first turning all the Welsh lines bold, then deleting all non-bold paras and finally unbolding what's left.

Ray

Hello ray,
This code fills up my computers memory till i get an error message saying that word has run out of memory, none of the other lines are deleted.It does not advance after the first instance of welsh that it finds when i step through the code.
your help is greatly appreciated.
thanks
welsh

Now then. This tests fine for me. Are you absolutely sure that each line ends with a 'return' character? If so, I think we'll have to rely on bruintje to put us straight.

Regards.

Ray

Hi highenergystar. No comments for 108 days. Any update here?

(For the PAQ). The initial loop should be changed to something like:

Do While Selection.Find.Execute(FindText:="welsh", Forward:=True, _
            Format:=True) = True
    If Selection.Font.Bold Then Exit Do
    With Selection
            .Expand Unit:=wdLine
            .Font.Bold = True
    End With
Loop