Hilfe!! Hinter jeder Zeile etwas einfügen

[F3K Total]

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

Code: Alles auswählen

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!

Viel Erfolg
Gruß R

[komma4]

geht auch mit Bearbeiten>Suchen & Ersetzen...

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

Option Regulärer Ausdruck muss aktiviert werden

[F3K Total]

Moin,

geht auch mit Bearbeiten>Suchen & Ersetzen...

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

Na, da hätte ich ja mal selbst drauf kommen können, Suchen & Ersetzen... einfach einfacher! Klasse!
Ich mußte das hintere \n weglassen, sonst entsteht bei mir eine Leerzeile zu viel.

Gruß Rik