[de-users] mangelhaftes Writer-Makro bezüglich Textrahmen verbessern

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





--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy