[gelöst] Seitenumbruch mit dem Textcursor erzeugen, wie?
Verfasst: Do 9. Okt 2025, 16:34
Hallo zusammen,
ich habe eine pdf-Datei eingelesen und eine odg-Datei ezeugt.
Diese möchte ich in eine gewöhnliche Text(Writer)-Datei übersetzen.
Das ist auch soweit gelungen.
Nur die Seitenreihenfolge schaffe ich nicht aufrecht zu erhalten.
Das mit dem Seitenumbruch kriege ich nicht hin.
Ich lege die Test.odg und meinen Quellcode einmal bei.
Ich würde mich freuen, wenn mir irgendwer weiterhelfen kann.
Gruß Werner
ich habe eine pdf-Datei eingelesen und eine odg-Datei ezeugt.
Diese möchte ich in eine gewöhnliche Text(Writer)-Datei übersetzen.
Das ist auch soweit gelungen.
Nur die Seitenreihenfolge schaffe ich nicht aufrecht zu erhalten.
Das mit dem Seitenumbruch kriege ich nicht hin.
Ich lege die Test.odg und meinen Quellcode einmal bei.
Ich würde mich freuen, wenn mir irgendwer weiterhelfen kann.
Gruß Werner
Code: Alles auswählen
'*****************************************
'* Textrahmen auslesen
'*
'*****************************************
'*
Sub Textfelder_auslesen
Dim oFilePicker As Object, FileName As String
Dim oQuelldatei as Object, oDrawPage As Object
Dim oShape As Object, oText As Object
Dim oZieldatei as Object, oCursor as Object
Dim oTextCursor As Object
Dim oPageBreak As Object
Dim i As Integer, j as Integer, AnzahlSeiten as Integer
FileName = ""
'FilePicker initialization
oFilePicker = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
oFilePicker.DisplayDirectory = ConvertToURL("C:\Path\To\SomeDir")
oFilePicker.appendFilter("Draw Documents", "*.odg")
oFilePicker.CurrentFilter = "Draw Documents"
oFilePicker.Title = "Select a Draw document"
'execution and return check (OK?)
If oFilePicker.execute = _
com.sun.star.ui.dialogs.ExecutableDialogResults.OK Then
FileName = oFilePicker.Files(0)
'Die Quelldatei öffnen
oQuelldatei = StarDesktop.loadComponentFromURL(FileName, "_default", 0, Array())
End If
'Anzahl der oQuelldatei-Seiten
AnzahlSeiten = oQuelldatei.DrawPages.count
print "Anzahl Seiten ",AnzahlSeiten
'lege leeres Writerdokoment an
oZieldatei = StarDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Array())
do while j < AnzahlSeiten
' Zugriff auf die aktuelle Drawpage
oDrawPage = oQuelldatei.DrawPages.getByIndex(j)
print "Anzahl Testzeilen ",oDrawPage.Count
' Durchlaufe alle Objekte auf der Zeichnungsebene
For i = oDrawPage.Count-1 To 1 step -1
'For i = 1 To oDrawPage.Count-1
oShape = oDrawPage.getByIndex(i)
' Prüfe, ob es sich um einen Textrahmen handelt
'If oShape.supportsService("com.sun.star.drawing.TextFrame") Then
If oShape.supportsService("com.sun.star.drawing.TextShape") Then
' Textrahmen gefunden, Eigenschaften auslesen
' print "Textrahmen gefunden:"
'Print " X-Position: " & oShape.XPos
'Print " Y-Position: " & oShape.YPos
'Print " Breite: " & oShape.Width
'Print " Höhe: " & oShape.Height
' Textinhalt auslesen
oText = oShape.Text
'Print " Text: " & oText.String
'Cursor im neuen Dokument platzieren
oCursor = oZieldatei.Text.createTextCursor()
'Text in das Dokument einfügen
oCursor.String = oText.String & chr(10)
End If
Next i
'den Cursor an das Ende des Textes setzen
oCursor = oZieldatei.getCurrentController().getViewCursor()
oCursor.gotoEnd(true)
'einen Seitenumbruch erzeugen
'oCursor.BreakType = com.sun.star.style.BreakType.PAGE_BEFORE
oCursor.BreakType = com.sun.star.style.BreakType.PAGE_AFTER
oCursor.PageDescName = oCursor.PageStyleName
j = j+1
print j," Seite abgearbeitet"
loop 'j
' Dokument schließen
oQuelldatei.close(True)
print "Programm beendet"
End Sub