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

[wega]

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) 368-mal heruntergeladen

[wega]

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