Copy contents between parenthesis and paste to end of document

[jeffreybrown]

I found this code which will show me everything in the word document found between parenthesis. It shows in the Msgbox, but instead I would like to see the contents at the end of my document.

Sub FindInsideParanthesis()

    Dim myrange
    Set myrange = Application.ActiveDocument.Content

    Dim myFind
    Set myFind = myrange.Find

    While (myFind.Execute(FindText:="\(*\)", MatchWildcards:=True))

        'Process your tag here
        MsgBox (myrange.Text)

    Wend

End Sub