Seite 1 von 1
[gelöst]Seitenumbruch per Makro
Verfasst: Mi 28. Apr 2021, 19:17
von chemnitzer
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
Re: Seitenumbruch per Makro
Verfasst: Do 29. Apr 2021, 12:37
von mikele
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.
Re: Seitenumbruch per Makro
Verfasst: Do 29. Apr 2021, 18:08
von F3K Total
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
Re: Seitenumbruch per Makro
Verfasst: Do 29. Apr 2021, 18:42
von chemnitzer
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
Re: Seitenumbruch per Makro
Verfasst: Di 22. Jun 2021, 11:52
von Beno5
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:-)
[GELÖST]Re: Seitenumbruch per Makro
Verfasst: Di 7. Sep 2021, 18:41
von chemnitzer
Hallo
ist gelöst. Dein Tipp war die Lösung.
MfG
Roland