Epub Fußnoten

[Albert15]

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

[Albert15]

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."

[Albert15]

Frage keiner Zuhause?
Albert

[F3K Total]

Frage doch besser die KI, die ist bestimmt Zuhause

[Albert15]

Meine Frage
war ja, ob mein Post ok sei. Der stammt doch von KI.
Albert

[F3K Total]

Also gut lieber Albert,
du schreibst hier im Forum Base/SQL, in dem es um DATENBANKEN geht.
Du fragst allerdings nach einem Makro, dass die Fußnoten in einem Epub ändern soll.
Also bist du leider im falschen Forum unterwegs.
Das nächste Mal bitte im Forumsbereich Makros und allgemeine Programmierung

Epub ist ein Dateiformat, das zum Beispiel von E-Readern gelesen werden kann und dann das Buch zum Lesen anzeigt.
Nun ist es so, dass das Dateiformat Epub gar keine Makros verarbeiten kann.
Also kannst du eine Epub-Datei nicht mit einem Open/Libreoffice Makro verändern.
Dazu benötigst du hier eine OpenOffice/LibreOffice WRITER Datei z.b. .odt.
Diese Datei kann im Anschluß, nachdem die Änderungen vorgenommen wurden, in eine Epub Datei exportiert werden.
Wenn du dies gemeint hast, kannst du dir die Datei im Anhang ansehen. Da habe ich dein Makro, leicht verändert, eingebaut und du kannst es per Schaltfläche starten.
Dann ändert sich die Farbe der drei vorhandenen Fußnoten zu grün und der Text wird fett geschrieben.

Damit das Makro laufen darf, stellst du unter Extras/Optionen/Openoffice oder LibreOffice/Sicherheit/Makrosicherheit mindestens die Stufe "Mittel" ein, dann wirst du beim Öffnen von Dokumenten gefragt, ob du Makros ausführen möchtest.

Viel Erfolg
Gruß R

[Albert15]

Besten Dank, dass du dich meines Problems angenommen hast.
Leider bin ich für deine Antwort offensichtlich zu dumm.
Aus deiner Antwort die Albert.odt geöffnet darin finde ich deine Änderungen nicht.
Dazu benötigst du hier eine OpenOffice/LibreOffice WRITER Datei z.b. .odt.
Die habe ich als ganzes Buch.
Diese Datei kann im Anschluss, nachdem die Änderungen vorgenommen wurden, in eine Epub Datei exportiert werden.
Welche Änderungen?
Albert

[F3K Total]

Hallo Albert,
die Datei enthält das Makro, was du per KI gefunden hast. Wenn du die Schaltfläche drückst, wird es ausgeführt.
Die Fußnoten, die wenn du die Datei öffnest noch schwarz geschrieben sind, werden fett und grün, siehe folgende Animation:

A.gif (89.83 KiB) 479 mal betrachtet

Wenn du sehen willst, wo das Markro in der Datei liegt:
Menü Extras/Makros/Makros verwalten/Basic ... und dann in Albert.odt/Standard/Modul1/FussnotenFormatKorrigieren -> Bearbeiten

A1.png (18.82 KiB) 479 mal betrachtet

dann solltest du dies sehen:

A2.png (21.97 KiB) 479 mal betrachtet

Beste Grüße von R

[Albert15]

Hallo, vorübergehend ziehe ich mich wegen Operation zurück.
Wenn es danach wieder mit mir geht, melde ich mich noch mal.
MfG
Albert