search and replace via api


I have a paragraph in a text document to remove. But it seams to search via ^text$ is not sufficient and I need to expand the found text with one more character at the end. how can I do that ?

oSrch = oDoc.createSearchDescriptor
oSrch.searchRegularExpression = True

Dim xFound As Object = oDoc.findFirst(oSrch)

But how to extend the range which is found ?