Nino Novak <[EMAIL PROTECTED]> writes:
>
> On Sunday 15 January 2006 01:37, Nino Novak wrote:
>
> > zeichne Dir ein Macro auf, das genau das macht
>
> sehe gerade, dass es das auch bereits fertig gibt:
> http://www.ooowiki.de/DeleteHardReturns
>
> Gruß Nino
>
Ich habe mal alles rausgeschmissen, was ich nicht brauche, und da
bleibt das übrig:
option Explicit
Sub AbsatzUmbruchLoeschen
Dim oDoc as Object
Dim oSuchAusdruck as Object
Dim oTC as Object
Dim oGefunden as object
oDoc = ThisComponent
oSuchAusdruck = oDoc.createSearchDescriptor
oSuchAusdruck.searchString= "$"
oSuchAusdruck.SearchRegularExpression = "true"
oTC = oDoc.Text.createTextCursor()
oGefunden = oDoc.findFirst(oSuchAusdruck)
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,oSuchAusdruck)
Loop
End Sub
Und das soll er jetzt nur innerhalb der Selektion machen. Also fehlt
bestimmt sowas wie:
oSuchAusdruck.SearchInSelection = "true"
oder so ähnlich. Ich weiß nicht, was ich da genau schreiben muss
(bzw. wo ich das dokumentiert finde).
Kann da jemand helfen?
Uwe
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
