hi xavier,

If there is no space before the email address, how is the 'Find' supposed to identify where the email address begins? This is easy enough where the email address is preceded by a paragraph break, but is really not possible where it's simply a matter of a missing space.

For an email address preceded by one or more spaces, try a wildcard Find/Replace where:
Find = "[ ]{1,}([! \@]{1,}\@*.[! ]{1,})[ ]{1,}"
Replace = " \1 "

For the alpha-numeric strings, try a wildcard Find/Replace where:
Find = "<[A-Z]{2}[0-9]{6}>"
Replace = "^&"
and set the colour format the replacement as red.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]