Macro Fußnoten zur Verwendung in Typo3 konvertieren
Verfasst: 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:
Für Word funktioniert es mit folgendem Macro:
Als Beispiel habe ich ein Textdokument angehängt.
Merci
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>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 SubMerci