Delete text between 'from' 'to' text strings

[djced]

In various stereotyped documents, I am trying

1. to delete few lines and paragraphs in between text strings "service on the seller" to "service on the Buyer"
I tried this code, but it deletes all the lines after "service on the seller" till end of the document, even after removing or changing "myrange.End"

Sub SelectRangeStarttext()
    Selection.HomeKey Unit:=wdStory
    
    Dim myrange As Range
    Selection.HomeKey wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Execute FindText:="service on the seller", Forward:=True, Wrap:=wdFindStop 'this will initiate the start word '"The value for the purpose of court fee and jurisdiction"
        Set myrange = Selection.Range
        myrange.End = ActiveDocument.Range.End
        myrange.Start = myrange.Start
        myrange.End = myrange.End + InStr(myrange, "service on the Buyer") ' this will initiate the end word
        myrange.Select
        
        Selection.Delete
    End With
End Sub

2. also i need to delete page containing text strings "removal Slip"

thanking you for your support

[gmayor]

Hmmm. The following will do what you ask, however if you delete the text block this will affect the second part because of text flow:

Sub Macro1()
Dim oRng As Range
Dim sText1 As String, sText2 As String
    sText1 = "service on the seller"
    sText2 = "service on the Buyer"
    Set oRng = ActiveDocument.Range
    If InStr(1, oRng, sText1) = 0 Then
        MsgBox sText1 & " not found"
        GoTo lbl_Exit
    End If
    If InStr(1, oRng, sText2) = 0 Then
        MsgBox sText2 & " not found"
        GoTo lbl_Exit
    End If
    With oRng
        .Start = .Start + InStr(oRng, sText1) - 1
        .End = .Start + InStr(oRng, sText2) + Len(sText2)
        .Text = ""
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

Sub Macro2()
Dim oRng As Range
Dim sText1 As String
    sText1 = "removal Slip"
    Set oRng = ActiveDocument.Range
    If InStr(oRng, sText1) > 0 Then
        With oRng
            .Start = .Start + InStr(oRng, sText1) - 1
            .Collapse 1
            .Select
        End With
        ActiveDocument.Bookmarks("\page").Range.Delete
    Else
        MsgBox sText1 & " not found"
    End If
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

[djced]

Originally Posted by gmayor

Hmmm. The following will do what you ask, however if you delete the text block this will affect the second part because of text flow:

Sub Macro1()
Dim oRng As Range
Dim sText1 As String, sText2 As String
    sText1 = "service on the seller"
    sText2 = "service on the Buyer"
    Set oRng = ActiveDocument.Range
    If InStr(1, oRng, sText1) = 0 Then
        MsgBox sText1 & " not found"
        GoTo lbl_Exit
    End If
    If InStr(1, oRng, sText2) = 0 Then
        MsgBox sText2 & " not found"
        GoTo lbl_Exit
    End If
    With oRng
        .Start = .Start + InStr(oRng, sText1) - 1
        .End = .Start + InStr(oRng, sText2) + Len(sText2)
        .Text = ""
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

Sub Macro2()
Dim oRng As Range
Dim sText1 As String
    sText1 = "removal Slip"
    Set oRng = ActiveDocument.Range
    If InStr(oRng, sText1) > 0 Then
        With oRng
            .Start = .Start + InStr(oRng, sText1) - 1
            .Collapse 1
            .Select
        End With
        ActiveDocument.Bookmarks("\page").Range.Delete
    Else
        MsgBox sText1 & " not found"
    End If
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

Thank you very much for this real quick solution. This is where the forum and the legends help the novice like us...!