You should be able to use a wildcard Find/Replace, where:
Find = <[0-9A-Za-z.]{1,}\@[!. ]{1,}.*>
Replace = nothing
No code required. Of course, if you're doing this regularly, simply record the above as a macro.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|