Macro Fußnoten zur Verwendung in Typo3 konvertieren

[Testbob]

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) 146-mal heruntergeladen