The Find/Replace expressions I posted are designed to process the kind of data referred to in your first post. What you have now posted is different. To process that data, you could change the wildcard Find/Replace expressions to:
Find = ([!^13]@)^13([!^13]@^13)([!^13]@BX[!^13]@^13)
Replace = \1 - \2\3
or:
Find = ([!^13]@)^13([!^13]@^13[!^13]@BX[!^13]@^13)
Replace = \1 - \2

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]