Hi Hanna,

das ist natürlich mit einem Makro schnell gemacht. Allerdings muss man sich da ein bisschen rantasten, bis das wie gewüscht funktioniert. Für den Anfang werden mit folgendem Code all in Klammern stehende Texte als Fußnote am Ende des Dokuments erstellt. Probier mal aus und berichte ob das schon so reicht. Wie man die Fußnote noch auf der gleichen Seite erstellt, weiß ich grad nicht.

Sub Test()

  Dim Erste As Long, Letzte As Long, Start As Long, Ende As Long, Text As String
  
  With ActiveDocument.Range.Find
    .Text = "("
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    Do
    .Execute
    Start = .Parent.Start
    If Start = Erste Or Start = Letzte Then Exit Do
    If Erste = 0 Then Erste = Start
    Letzte = Start
    Ende = InStr(Start, ActiveDocument.Range.Text, ")")
    Text = ActiveDocument.Range(Start + 1, Ende - 1)
    ActiveDocument.Range(Start, Ende).Delete
    ActiveDocument.Footnotes.Add ActiveDocument.Range(Start, Start), Text:=Text
    Loop
  End With
  
End Sub

Gruß Mr. K.