Sub Test()
Dim Start As Long, Ende As Long, Text As String
With ActiveDocument.Range.Find
.Text = "("
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Do
.Execute
If .Found Then
Start = .Parent.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
End If
Loop Until .Found = False
End With
End Sub