To: Cyberdude,

Below are two examples, the first takes your text as one paragraph, the
second makes it a series of paragraphs.

Sub TestDeleteRangeBeforeSentenceWith()
   Dim newDoc As Document
   Dim newRange As Range
   
   Set newDoc = Documents.Add
   Set newRange = newDoc.Range(0, 0)
   newRange.Text = "This is a story. A prince lived in a house with a
chimney and a garden. One day, a girl appeared.....
...................................... They finally escaped the disaster. But
they couldn't pass the next test together."
   MsgBox "Click ok"
   Call DeleteRangeBeforeSentenceWith(newRange, "test")
End Sub

Function DeleteRangeBeforeSentenceWith(ByVal oRange As Range, ByVal sStr As
String)
   oRange.End = oRange.Start + InStr(1, oRange, sStr)
   oRange.MoveEnd wdSentence, -1
   oRange.Delete
End Function

Sub TestDeleteRangeBeforeParagraphWith()
   Dim newDoc As Document
   Dim newRange As Range
   Dim range1 As Range
   
   Set newDoc = Documents.Add
   Set newRange = newDoc.Range(0, 0)
   newRange.Text = "This is a story." & vbCr _
       & "A prince lived in a house with a chimney and a garden. One day, a
girl appeared..... ......................................" & vbCr _
       & "They finally escaped the disaster." & vbCr _
       & "But they couldn't pass the next test together."
   MsgBox "Click ok"
   Call DeleteRangeBeforeParagraphWith(newRange, "test")
End Sub

Function DeleteRangeBeforeParagraphWith(ByVal oRange As Range, ByVal sStr As
String)
   oRange.End = oRange.Start + InStr(1, oRange, sStr)
   oRange.MoveEnd wdParagraph, -1
   oRange.Delete
End Function

Steven Craig Miller

To: Cyberdude,

I have another example, I don't like it as much, but it works with "lines"
(per your request). It is similar to the code posted by Doug Robbins, except
I couldn't get "Bookmarks" to work directly with Ranges. So I made
modifications as noted below in the code.

Sub TestDeleteRangeBeforeLineWith()
   Dim newDoc As Document
   Dim newRange As Range
   
   Set newDoc = Documents.Add
   Set newRange = newDoc.Range(0, 0)
   newRange.Text = "This is a story. A prince lived in a house with a
chimney and a garden. One day, a girl appeared.....
...................................... They finally escaped the disaster. But
they couldn't pass the next test together."
   MsgBox "Click ok"
   Call DeleteRangeBeforeLineWith(newRange, "test")
End Sub
'
' I couldn't get "Bookmarks" to work directly with ranges.
' It appears to work only with selections, and so I got it
' to work using .Select and Range.Parent
'
Function DeleteRangeBeforeLineWith(ByVal oRange As Range, ByVal sStr As
String)
   Dim tempRange As Range
' Save the original range
   Set tempRange = oRange.Duplicate
' Find sStr and select it
   With tempRange
       .End = oRange.Start + InStr(1, oRange, sStr)
       .Collapse wdCollapseEnd
       .Select
   End With
' Get range of the line where the cursor is now located
   Set tempRange = tempRange.Parent.Bookmarks("\line").Range
' Backup one character
   With tempRange
       .Collapse wdCollapseStart
       .Move wdCharacter, -1
   End With
' Reset the end of the original range & delete
   oRange.End = tempRange.End
   oRange.Delete
End Function

-Steven Craig Miller

Dim range1 As Range, range2 As Range
Set range1 = ActiveDocument.Range
range1.Start = Selection.Range.Start
range1.End = range1.start + InStr(range1, "test")
Set range2 = range1.Duplicate
range2.Collapse wdCollapseEnd
Set range2 = range2.Bookmarks("\line").Range
range2.Collapse wdCollapseStart
range1.End = range2.start - 1
range1.Delete