Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

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'hui709
Hier2224
Cette semaine13347
Ce mois31427
Total depuis 200410766835

13
visiteurs actuellement en ligne