BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

[gelöst]Seitenumbruch per Makro

Alles zur Programmierung im LibreOffice.
Antworten
chemnitzer
Beiträge: 43
Registriert: Di 20. Jan 2015, 18:56
Wohnort: Hungen

[gelöst]Seitenumbruch per Makro

Beitrag von chemnitzer » Mi 28. Apr 2021, 19:17

Hallo
ich benötige wieder eure Hilfe, weil ich relativ neu in der Programmierung bin.
Ich füge über ein Makro mehrere Bilder in ein Writerdokument ein, dies funktioniert. Ich möchte aber während des Einfügens nach jeden Bild einen Seitenumbruch ebenfalls haben. Ich meine nicht den autom. wenn das nächste Bild zu groß ist.
Ich hab im Forum leider nichts gefunden.
Danke für die Hilfe.
MfG
Roland
Zuletzt geändert von chemnitzer am Di 7. Sep 2021, 18:43, insgesamt 1-mal geändert.

mikele
Beiträge: 1642
Registriert: Mo 1. Aug 2011, 20:51

Re: Seitenumbruch per Makro

Beitrag von mikele » Do 29. Apr 2021, 12:37

Hallo,
ich zitiere mal aus "Andrew Pitonyak: BASIC-Makros für OpenOffice und LibreOffice" (https://www.uni-due.de/~abi070/ooo.html) Kapitel 14.2.1
Um einen Seitenumbruch einzufügen, setzen Sie die Eigenschaft PageDescName auf den Namen der
nach dem Seitenumbruch zu verwendenden Seitenvorlage. Das kann dieselbe Vorlage wie die der
aktuellen Seite sein. Allein der Umstand, dass die Eigenschaft PageDescName gesetzt ist – nicht,
dass ein neuer Wert darin steht –, bewirkt den Seitenumbruch.
Gruß,
mikele

F3K Total
Beiträge: 2410
Registriert: So 10. Apr 2011, 10:10

Re: Seitenumbruch per Makro

Beitrag von F3K Total » Do 29. Apr 2021, 18:08

Moin,
dies müsste funzen:

Code: Alles auswählen

Sub Insert_Bitmaps
    oDoc = thisComponent
    oText = odoc.Text
    oTextcursor = oText.createTextCursor
    oTextcursor.collapseToStart
    For i = 0 to X
'------------------------------------------
    ' in dieser Schleife werden hier die Bilder eingefügt
'------------------------------------------
        'Seitenumbruch nach Bildeinfügen zufügen
        oTextCursor.gotoend(false)
        oTextCursor.breaktype = com.sun.star.style.BreakType.PAGE_AFTER
        oText.insertControlCharacter(oTextCursor,0 , False)
        oTextCursor.gotoend(false)
    next i
end sub
Gruß R
Windows 10: AOO, LO Linux Mint: AOO, LO

chemnitzer
Beiträge: 43
Registriert: Di 20. Jan 2015, 18:56
Wohnort: Hungen

Re: Seitenumbruch per Makro

Beitrag von chemnitzer » Do 29. Apr 2021, 18:42

Hallo
ich habe die entsprechenden Codezeilen nach dem Einfügen des Bildes eingetragen und es hat funktioniert.
Vielen Dank für das Codesnipsel.
MfG
Roland

Beno5
Beiträge: 5
Registriert: Mo 21. Jun 2021, 23:10

Re: Seitenumbruch per Makro

Beitrag von Beno5 » Di 22. Jun 2021, 11:52

mikele hat geschrieben:
Do 29. Apr 2021, 12:37
Hallo,
ich zitiere mal aus "Andrew Pitonyak: BASIC-Makros für OpenOffice und LibreOffice" (https://www.uni-due.de/~abi070/ooo.html) Kapitel 14.2.1
Um einen Seitenumbruch einzufügen, setzen Sie die Eigenschaft PageDescName auf den Namen der
nach dem Seitenumbruch zu verwendenden Seitenvorlage. Das kann dieselbe Vorlage wie die der
aktuellen Seite sein. Allein der Umstand, dass die Eigenschaft PageDescName gesetzt ist – nicht,
dass ein neuer Wert darin steht –, bewirkt den Seitenumbruch.

Oh ja das hilft mir auch merci:-)

chemnitzer
Beiträge: 43
Registriert: Di 20. Jan 2015, 18:56
Wohnort: Hungen

[GELÖST]Re: Seitenumbruch per Makro

Beitrag von chemnitzer » Di 7. Sep 2021, 18:41

Hallo
ist gelöst. Dein Tipp war die Lösung.

MfG
Roland

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten