von Reader » Di, 17.01.2006 18:56
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
Hallo,
ich versuche, Absatzmarken durch Zeilenumbrüche innerhalb eines vorher markierten Textes auszutauschen.
Soweit bin ich inzwischen:
[code]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
[/code]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