View Single Post
 
Old 10-16-2022, 05:39 AM
macropod's Avatar
macropod macropod is online now Windows 10 Office 2016
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

You do not need a macro for this. All you need is a wildcard Find/Replace, where:
Find = <([A-Za-z]{2})[A-Za-z]@([A-Za-z])>
Replace = \1\2
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote