user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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

 

Statistiques

Aujourd'hui1538
Hier2712
Cette semaine12355
Ce mois12355
Total depuis 200412836919

42
visiteurs actuellement en ligne

5 mars 2021