Your Find/Replace would, amongst other things, replace a single space with a pair of spaces. You'd probably do better to use something like:
Find = ([0-9A-Za-z])-
Replace = \1^s-


As coded, my version ensures there's actually a letter or number before the hyphen, then inserts a non-breaking space before it - which ensures the hyphen doesn't end up starting a new line.

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