Suchbereich festlegen

[Reader]

Hallo,
ich versuche, Absatzmarken durch Zeilenumbrüche innerhalb eines vorher markierten Textes auszutauschen.
Soweit bin ich inzwischen:

Code: Alles auswählen

Sub AbsatzZeilenumbruch
  Dim oDoc as Object
  Dim oSuchBeschreibung as Object
  Dim oTC as Object 
  Dim oVC as Object
  Dim oGefunden as object
  oDoc = ThisComponent
  oSuchBeschreibung = oDoc.createSearchDescriptor
  oSuchBeschreibung.searchString = "$"
  oSuchBeschreibung.SearchRegularExpression = "true"
  oTC = oDoc.Text.createTextCursor()        
  oGefunden = oDoc.findFirst(oSuchBeschreibung)
  Do While not IsNull (oGefunden)
    oTC.gotoRange(oGefunden,false)
    oDoc.Text.insertControlCharacter(oTC,com.sun.star.text.ControlCharacter.LINE_BREAK,true)
    oGefunden = ThisComponent.findNext(oGefunden.End,oSuchBeschreibung)
  Loop
End Sub

Jetzt möchte ich aber, dass das nicht im ganzen Dokument sondern nur in dem vorher markierten Bereich passiert. Was muss ich da anders machen?
Danke schon mal
Uwe