OpenOffice.info

[b][color=#FF0000]Besten Dank, dass du dich meines Problems angenommen hast.[/color][/b]
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, [b]nachdem die Änderungen vorgenommen wurden[/b], in eine Epub Datei exportiert werden.
Welche Änderungen?
Albert

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

[b]Epub[/b] 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 [b]Epub[/b] gar keine Makros verarbeiten kann.
Also kannst du eine [b]Epub[/b]-Datei nicht mit einem Open/Libreoffice Makro verändern.
Dazu benötigst du hier eine OpenOffice/LibreOffice WRITER Datei z.b.[b] .odt.[/b]
Diese Datei kann im Anschluß, nachdem die Änderungen vorgenommen wurden, in eine [b]Epub[/b] Datei [b]exportiert[/b] 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

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

Frage doch besser die KI, die ist bestimmt Zuhause ;-)

Frage keiner Zuhause?
Albert

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

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