BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

Macro Fußnoten zur Verwendung in Typo3 konvertieren

Alles zur Programmierung im LibreOffice.
Antworten
Testbob
Beiträge: 1
Registriert: Mo 3. Aug 2020, 10:07

Macro Fußnoten zur Verwendung in Typo3 konvertieren

Beitrag von Testbob » Mo 3. Aug 2020, 10:19

Hallo zusammen,

es geht um ein Macro (Makro), das eine Fußnote in Libreoffice Writer in folgende Form im Text selbst umwandelt:

Code: Alles auswählen

<anm>InhaltDerFußnote</anm>
Für Word funktioniert es mit folgendem Macro:

Code: Alles auswählen

 Sub ReadFootNotes()
  For Each note In ActiveDocument.Footnotes
     note.Reference.Select
     Selection.Font.Reset
     Dim newString As String
     Selection.Text = "<anm>" & note.Range.Text & "</anm>"
     newString = Replace(Selection, "<anm> ", "<anm>")
     Selection.TypeText Text:=newString
  Next
 End Sub
Als Beispiel habe ich ein Textdokument angehängt.

Merci
Beispiel Anfrage Makro Fußnoten.docx
(5.02 KiB) 126-mal heruntergeladen

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten