LibreOffice-Forum

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

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

Test.odg: (62.26 KiB) 1259-mal heruntergeladen

Hallo zusammen,

ich habe für mich die finale Lösung gefunden.
Die Seiten werden in der richtigen Reihenfolge erzeugt
und ein Seitenumbruch erfolgt auch.

Es gibt bestimmt eine elegantere Lösung.
Auf solch eine bessere und saubere Lösung würde ich mich freuen.
Aber hier mein neuer Quellcode:

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())

For j =AnzahlSeiten-1 to 0 step -1

' 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 -1To 0 step -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
 
      '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
      
  'einen Seitenumbruch erzeugen
       oCursor = oZieldatei.Text.createTextCursor()
       oCursor.String = chr(10)&chr(13)

       oCursor.breaktype = com.sun.star.style.BreakType.PAGE_AFTER
 
  print ".Seite abgearbeitet"
  next j

  ' Dokument schließen
    oQuelldatei.close(True)

  print "Programm beendet"
End Sub

Mit Gruß Werner

Hallo zusammen,

nun glaube ich den Zusammenhang zwischen einem
ViewCursor und einem TextCursor halbwegs verstanden
zu haben.
Und somit kommt hier mein letzter Code zum Problem des
Übertragens einer PDF- umgewandelten ODG-Datei zu einer
Writer-Datei.

Code: Alles auswählen

'****************************************************
'* ODG-Dateien auslesen und in eine Writer-Datei überführen
'* 
'* Das Makro enthält Sequenzen aus dem Internett
'* und aus diversen Open- und Libreoffice Foren
'* ebenso aus dem Staroffice-7-Programmierhandbuch
'*
'* W. Gatzweiler im Oktober 2025
'*
'****************************************************
'*
Sub ODG_Dateien_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
Dim oTextCursor As Object
Dim  oViewCursor  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())
	
	'den Textcrusor erzeugen
	oTextCursor = oZieldatei.Text.createTextCursor()
	
	'die Position des ViewCursors ermitteln
	oViewCursor = oZieldatei.GetCurrentController.ViewCursor
		      	
	For j = 1 to AnzahlSeiten

		' Zugriff auf die aktuelle Drawpage
 		oDrawPage = oQuelldatei.DrawPages.getByIndex(j-1)
		print "Anzahl Textzeilen    ",oDrawPage.Count

		' Durchlaufe alle Textzeilen auf der Zeichnungsebene
  		For i =  1 to oDrawPage.Count
  
    		oShape = oDrawPage.getByIndex(i-1)

    		' Prüfe, ob es sich um einen Textrahmen handelt
    	 	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

		      	'Text in das Dokument einfügen
		      	oTextCursor.GotoRange(oViewCursor, false)
 		      	oTextCursor.String = oText.String & chr(10)	'chr(10) ist Zeilenvorschub
 
   		 	End If
  		Next i
      		
	  	'den Absatzabschluss schreiben
       	oTextCursor.GotoRange(oViewCursor, false)
       	oTextCursor.String = chr(13)		'chr(13) ist Wagenrücklauf

       	'jede der nachfolgenden Anweisungen bewirkt den Seitenumbruch
       	'oTextCursor.breaktype = com.sun.star.style.BreakType.PAGE_BEFORE
       	oTextCursor.breaktype = com.sun.star.style.BreakType.PAGE_AFTER
 
 	   	print "Seite " ; j ; " ist abgearbeitet"
 	   	
  	next j

  		'die letzte leere Seite abfangen
	   	 if Asc(oTextCursor.String) = 10 then 
 	   	 	oTextCursor.String = chr(8)
 	   	 end if
 	   	 
	' Dokument schließen
 	oQuelldatei.close(True)

  	print "Programm beendet"
End Sub

Vielleicht geht das auch irgendwie charmanter?
Mit Gruß Werner

LibreOffice-Forum

[gelöst] Seitenumbruch mit dem Textcursor erzeugen, wie?

[gelöst] Seitenumbruch mit dem Textcursor erzeugen, wie?

Re: Seitenumbruch mit dem Textcursor erzeugen, wie?

Re: [gelöst] Seitenumbruch mit dem Textcursor erzeugen, wie?