Hallo,
ich habe ein Writer-Dokument, generiert von einer OCR-App, in dem die OCR-App den Textstand der Seite mithilfe von Textrahmen nachzubauen versucht.
Ich benötige den Text aber als einfachen Text.
Da es sich um mehrere Rahmen je Seite handeln kann, ist ein manuelles Auswählen, Ausschneiden Rahmen löschen und Text einfügen recht aufwendig; daher habe ich nach einem Malro gesucht und folgendes gefunden
Sub DeleteFrameSaveText
oDoc =ThisComponent
oTF = oDoc.getTextFrames
c = oTF.Count - 1
For i = 0 to c
thisF = oTF.getByIndex(i)
s = thisF.String
otc = oDoc.Text.createTextCursorByRange(thisF.Anchor)
otc.setString(s)
thisF.dispose()
Next
End Sub
Dieses Makro scheint mangelhaft zu sein; erstens bekomme ich eine Fehlermeldung, und im Dokument ist zwar ein Teil der Rahmentexte wie gewünscht in die datei kopiert; andere Rahmen scheinen aber gelöscht, ohne dass deren inhalt kopiert wurde. und andere Rahmen scheinen nicht beachtet worden zu sein
wie kann ich dieses Makro verbessern ?
mit freundlichem gruss
Martin jenniges