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 Sub
Merci