Seite 1 von 1

aus odt datei ein Epub erstellemn

Verfasst: Fr, 23.10.2026 12:07
von Albert15
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

Re: aus odt datei ein Epub erstellemn

Verfasst: Fr, 23.10.2026 12:31
von Mondblatt24
Braucht es dafür überhaupt ein Makro?
Funktioniert das nicht über Datei → Als EPUB exportieren…?