Bis jetzt werden die Fußnoten im EPUP wie Verzeichnisse behandelt.
Wahrscheinlich benötigt man für EPUP ein Modul in bas,
Wer mach mir so ein Makro?
Wenn das ein großer Aufwand ist, sollte der, der das kann sich mal bitte melden.
------------------------------------------------------
Ich hatte jemanden, der war wie ein Freund geworden.
Leider wurde der krank, sodass er mir nicht mehr helfen konnte.
Es war der Jürgen aus Paderborn.
Albert
Epub Fußnoten
Moderator: Moderatoren
Re: Epub Fußnoten
Mit Ki etwas genacht.
Kann das funkioinieren?
Wie kann ich das testen
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."
Kann das funkioinieren?
Wie kann ich das testen
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."