You could, of course use a wildcard Find/Replace, where:
Find = ([A-Z][a-z]@)^s([0-9])
Replace = \1 \2
This would leave the non-breaking spaces before your 'Word' intact. If you're wedded to removing those, too, do a second wildcard Find/Replace, where:
Find = ([0-9])^s([A-Z][a-z]@ [0-9])
Replace = \1 \2

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