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

 

Sinon, voici une solution extrêmement simple pour les anciennes versions jusqu'à 2003 :

  • Appuyer sur Alt+F9 pour faire apparaître les champs
  • Appuyer sur Ctrl + F pour ouvrir la boîte de recherche
  • Rechercher : ^d hyperlink
  • cocher  l'option Surligner tous les éléments trouvés...
  • cliquer sur le bouton Rechercher tout
  • Fermer la boîte de dialogue
  • Appuyer sur Ctrl + C pour copier tout ce qui est surligné
  • Ouvrir un nouveau doc et appuyer sur Ctrl + V pour coller