i need vba cod for word

[bnyamin]

hello

After executing the code:
Find the phrase or word that is in parentheses and copy / then paste it at the bottom of the text

 

[Macropod]

You could, of course use an INDEX, in which case, you'd use code that simply adds XE fields at each of the found locations, then adds an INDEX field to the document. For example:

Sub CreateIndex()
Dim StrIdx As String
With ActiveDocument
  With .Range
    With .Find
      .Text = "\(*\)"
      .MatchWildcards = True
      .Execute
    End With
    Do While .Find.Found = True
      StrIdx = Replace(Replace(.Text, ")", Chr(34)), "(", Chr(34))
      .Collapse wdCollapseEnd
      .Fields.Add .Duplicate, wdFieldEmpty, "XE " & StrIdx, False
      .Find.Execute
    Loop
  End With
    .Indexes.Add Range:=.Range.Characters.Last, HeadingSeparator:=wdHeadingSeparatorNone, _
      Type:=wdIndexIndent, RightAlignPageNumbers:=True, NumberOfColumns:=1
End With
End Sub

The Index entries get sorted alphabetically and, if the same entry appears multiple times, grouped.