Macro for deleting multiple lines between words that won't always be the same

Question

I'm trying to find a macro or find and replace string that will help me select and delete a bunch of junk lines from some stuff I have to copy. I can't copy this from the source any other way, it forces the whole text on you like this.

Every bit of content is different so there aren't any constants on either side of the text I want to delete. The only constant in all of these are the words "Full Text" and the placement of the paragraph breaks. This is an example, I bolded the bits I'm trying to remove:

randomtext**¶**

randomtext¶

¶

¶

random numbers¶

¶

Full Text¶

¶

¶

randomtext

These are consistently the first 10 lines of every bit of pasted content, but I only want to keep lines 1 and 10. Every pattern I've tried with find and replace fails to target this text and only this text. Is there any VBA code I could use to accomplish this? Thanks.

Answer 1

Try this. Please test on a copy of your document first!

Sub DeleteText()

    Application.ScreenUpdating = False

    Selection.HomeKey Unit:=wdStory

    With Selection.Find

        .ClearFormatting

        .Replacement.ClearFormatting

        .Text = "Full Text"

        Do While .Execute

            Selection.MoveStart Unit:=wdParagraph, Count:=-5

            Selection.MoveEnd Unit:=wdParagraph, Count:=3

            Selection.Delete

        Loop

    End With

    Application.ScreenUpdating = True

End Sub

Answer 2

That worked! Many thanks.