OpenOffice.info

Moin,
[quote="komma4"]geht auch mit Bearbeiten>Suchen & Ersetzen...

Suchen nach: .$
Ersetzen durch: &\nhallo[color=#0040FF]\n[/color][/quote]
Na, da hätte ich ja mal selbst drauf kommen können, Suchen & Ersetzen... einfach einfacher! Klasse!
Ich mußte das hintere[color=#0040FF] \n [/color]weglassen, sonst entsteht bei mir eine Leerzeile zu viel.

Gruß Rik

geht auch mit [color=#0040FF]Bearbeiten>Suchen & Ersetzen...[/color]

Suchen nach: [b].$[/b]
Ersetzen durch: [b]&\nhallo\n[/b]

Option [color=#0040FF]Regulärer Ausdruck[/color] muss aktiviert werden

Sub Insert_paragraph
    otext = thiscomponent.Text
    oTextCursor = otext.createTextCursor
    i = 0
    do 
        oTextCursor.gotoEndOfParagraph(false)
        oTextCursor.string = chr(13)+"Hallo"
        i = i + 1
        oTextCursor.gotoEndOfParagraph(false)
        oTextCursor.gotoNextParagraph(false)
    loop while oTextCursor.gotoNextParagraph(false)
    msgbox "Fertig! ""Hallo"" wurde "+i+"-mal eingefügt"
End Sub

Hallo Funny77,
mit diesem Makro kannst Du das mal schnell machen.

[code]Sub Insert_paragraph
otext = thiscomponent.Text
oTextCursor = otext.createTextCursor
i = 0
do
oTextCursor.gotoEndOfParagraph(false)
oTextCursor.string = chr(13)+"Hallo"
i = i + 1
oTextCursor.gotoEndOfParagraph(false)
oTextCursor.gotoNextParagraph(false)
loop while oTextCursor.gotoNextParagraph(false)
msgbox "Fertig! ""Hallo"" wurde "+i+"-mal eingefügt"
End Sub[/code]

[list=1][*]Du stellst unter [color=#0040FF]Extras/Optionen/Openoffice.org/Sicherheit/Makrosicherheit[/color] [color=#FF0000]Mittel[/color] ein, dann wirst du beim Öffnen von Dokumenten gefragt ob du Makros ausführen möchtest.
[*] Unter [color=#0040FF]Extras/Makros/Markos verwalten/OpenOffice.org Basic[/color] klickst du links im Baum deine Datei an, dann auf [color=#0040FF]Neu[/color] und [color=#0040FF]OK[/color].
[*]Es hat sich die Basic IDE geöffnet, hier kopierst du den oben angegebenen Makro Text ans Ende.
[*]Speichern!
[*]Basic IDE schliessen
[*]Cursor an die Stelle im Dokument, an der du mit dem Einsetzen von "Hallo" beginnen möchtest.
[*]Unter [color=#0040FF]Extras/Makros/Makros ausführen[/color] klickst Du auf das Plus-Zeichen vor Deinem [color=#0040FF]Dokument[/color], dann das vor [color=#0040FF]Standard[/color], jetzt [color=#0040FF]Module1[/color] anklicken.
[*]Im rechten Fenster sollte jetzt [color=#0040FF]Insert_paragraph[/color] auswählbar sein, anklicken, ausführen, fertig![/list]

Viel Erfolg
Gruß R