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