Voici une solution extrêmement simple pour Word 2000-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

 

Pour les versions 2007/2010, il faut passer par une macro car la recherche ne fait que surligner sans sélectionner :

 

Sub recup_mails()
'macro écrite par m@rina
Dim champ As Field, nouveau As Document
Set nouveau = Documents.Add

For Each champ In ThisDocument.Fields
If champ.Type = wdFieldHyperlink Then
champ.Copy
nouveau.Select
With Selection
.EndKey Unit:=wdStory, Extend:=wdMove
.TypeParagraph
.PasteAndFormat (wdPasteDefault)
End With
End If
Next

End Sub

 

 

 

Statistiques

Aujourd'hui823
Hier2816
Cette semaine11430
Total depuis 20049486690

46
visiteurs actuellement en ligne