Depuis la version 2007, il faut passer par une macro car la recherche ne fait que surligner les résultats sans sélectionner :

Sub recup_mails()
'macro écrite par m@rina
Dim champ As Field, nouveau As Document

For Each champ In ActiveDocument.Fields
If champ.Type = wdFieldHyperlink Then
Liste = Liste & champ.Result & vbCr
End If
Next

Set nouveau = Documents.Add
Selection.TypeText Text:=Liste

End Sub