Recherche

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

 

Statistiques

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

65

Pays
018273688
Aujourd'hui: 11
Hier: 68
Cette semaine: 11
Semaine dernière: 783
Ce mois: 1.950