You might need to change:
.Text = "\<[Aa] href=([!\>]{1,})\>([!\<]{1,})\</a\>"
to:
.Text = "\<[Aa] href=([!\>]{1;})\>([!\<]{1;})\</a\>"
or:
.Text = "\<[Aa] href=([!\>]@)\>([!\<]@)\</a\>"
Since there is no document attached to your post (only a picture of one), I can't really do any further diagnosis.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|