Word VBA Text search with Wildcards

[carriepete]

I'm trying to do a find and replace on an email address in a word doc. I'm able to find everything to the right of the "@", but everytime I use a wildcard on the lefthand side it finds all of the text in the doc before, not just the email address.

With myrange.Find
.ClearFormatting
.MatchCase = False ' doesn't work
.MatchWildcards = True
.Text = "(\@(*.*)>" ' works for right of @
.Text = &quot;<(*\@(*.*)>&quot; ' give all text before email


any assistance would be greatly appreciated....

pete