View Single Post
 
Old 11-03-2013, 02:41 AM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,383
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 could use a wildcard Find/Replace, where:
Find = ([!^13]@)^13([!^13]@^13)[!^13]@^13([!^13]@BX[!^13]@^13)
Replace = \1 - \2\3

No VBA required. If you really want VBA for this, simply record the above with the macro recorder.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote