OpenOffice.info

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

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

komma4 hat geschrieben:geht auch mit Bearbeiten>Suchen & Ersetzen...

Suchen nach: .$
Ersetzen durch: &\nhallo\n