OpenOffice.info

Braucht es dafür überhaupt ein Makro?
Funktioniert das nicht über Datei → Als EPUB exportieren…?

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