If you run the following macro, it will convert text in the form of an email
address into a clickable address:
Dim myrange As Range
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="[+0-9A-z._-]{1,}\@[A-z.]{1,}", _
MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) = True
Set myrange = Selection.Range
myrange.Hyperlinks.Add Anchor:=myrange, Address:="Mailto: " &
myrange
Loop
End With

Signature
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
>
> We have a letter to email in MSWord XP which has merge fields, merged in
[quoted text clipped - 11 lines]
> ------------------------------------------------
> ~~ Message posted from http://www.WordForums.com/