aus odt datei ein Epub erstellemn
Verfasst: Fr, 23.10.2026 12:07
Ist es überhaupt möglich, aus einer odt Datei ein Epub erstellen?
in chatGPT habe ich gesucht und diese Antwort erhalten.
Ist das ein Ansatz den ich verfolgen sollte?
Albert
Dieses Makro durchsucht alle Fußnoten und setzt deren Absatzvorlage auf „Fußnote“. Der eigentliche Fußnotentext bleibt erhalten.
Sub FussnotenFormatKorrigieren()
Dim oDoc As Object
Dim oFussnoten As Object
Dim oFussnote As Object
Dim oCursor As Object
Dim i As Long
oDoc = ThisComponent
oFussnoten = oDoc.getFootnotes()
For i = 0 To oFussnoten.getCount() - 1
oFussnote = oFussnoten.getByIndex(i)
oCursor = oFussnote.createTextCursor()
oCursor.gotoStart(False)
oCursor.gotoEnd(True)
oCursor.ParaStyleName = "Footnote"
Next i
MsgBox "Alle " & oFussnoten.getCount() & _
" Fußnoten wurden bearbeitet."
Nach oben
in chatGPT habe ich gesucht und diese Antwort erhalten.
Ist das ein Ansatz den ich verfolgen sollte?
Albert
Dieses Makro durchsucht alle Fußnoten und setzt deren Absatzvorlage auf „Fußnote“. Der eigentliche Fußnotentext bleibt erhalten.
Sub FussnotenFormatKorrigieren()
Dim oDoc As Object
Dim oFussnoten As Object
Dim oFussnote As Object
Dim oCursor As Object
Dim i As Long
oDoc = ThisComponent
oFussnoten = oDoc.getFootnotes()
For i = 0 To oFussnoten.getCount() - 1
oFussnote = oFussnoten.getByIndex(i)
oCursor = oFussnote.createTextCursor()
oCursor.gotoStart(False)
oCursor.gotoEnd(True)
oCursor.ParaStyleName = "Footnote"
Next i
MsgBox "Alle " & oFussnoten.getCount() & _
" Fußnoten wurden bearbeitet."
Nach oben