xxxxxxxxxx
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
ActiveDocument.Content.Select
Do
With Selection.Find
.Text = "<[A-z,0-9]@\@[A-z,0-9]@\.com>"
.MatchWildcards = True
.Forward = True
.Execute
End With
If Selection.Find.Found Then
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="mailto:" & Selection.Range
Else
Exit Do 'If not found then end the loop
End If
Loop