WORD: Deleting all text that begins with a certain string

[socialstudies2007]

I'm trying to create a macro that will delete all lines of text that start with a specified string.

For example, each such line begins with "Category" and then is followed with a random length string of additional characters. All these lines do end with the same string, however: "End"

I'm not having any luck crafting this macro on my own.

I would appreciate any assistance anyone could render!

Thank you very much,

A currently confused teacher

 

[JoshuaD]

Re: Deleting all text that begins with a certain string

Are all of these values in the same column? Also does the range fluctuate or is it always the same amount of cells you need to look at? Are you using a table or a standard range of cells?

You can always use a helper column with the formula: =IF(LEFT(A1,8)="Category","Delete",""). This will mark wich ones apply and then you can just filter and delete. I am more than happy to assist with the VBA if you can give me a little more information!

 

[Joe4]

Re: Deleting all text that begins with a certain string

Try this VBA code:

Sub MyDeleteRows()

    Dim lrow As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column A with entries
    lrow = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows in column A going backwards
    For r = lrow To 1 Step -1
'       See if entry begins with "Category" and ends with "End"
        If LCase(Left(Cells(r, "A"), 8)) = "category" And LCase(Right(Cells(r, "A"), 3)) = "end" Then
'           Delete row
            Rows(r).Delete
        End If
    Next r
    
    Application.ScreenUpdating = True
    
End Sub

 

[socialstudies2007]

Re: Deleting all text that begins with a certain string

This is actually a macro for a word document. I thought VBA would transfer across Microsoft Office products pretty seamlessly... I was thinking I just needed the correct command and I could put it in a loop to repeat, and that repeating line of code shouldn't have any row or cell etc references.

Your help is very much appreciated!

I look forward to your reply.

Thanks!

Are all of these values in the same column? Also does the range fluctuate or is it always the same amount of cells you need to look at? Are you using a table or a standard range of cells?

You can always use a helper column with the formula: =IF(LEFT(A1,8)="Category","Delete",""). This will mark wich ones apply and then you can just filter and delete. I am more than happy to assist with the VBA if you can give me a little more information!

 

[Joe4]

Re: Deleting all text that begins with a certain string

This is actually a macro for a word document. I thought VBA would transfer across Microsoft Office products pretty seamlessly

That is something you want to be sure to mention in your title and post, as it is different (Word does not have cells/ranges like Excel does).

I have added "WORD" to your title and moved this to the "General Excel Discussion & Other Questions" forum instead of the "Excel Questions" forum. That is a better place for it, and we have a Word expert here who often checks that forum for Word questions.

 

[Macropod]

Re: Deleting all text that begins with a certain string

You don't really need a macro for that in Word. In Word, it can be done with a wildcard Find/Replace, where:
Find = ^13Category[!^13]@End^13
Replace = ^p