You should be able to do that with two wildcard Find/Replace operations, where:
Find = [^033-^043^045^047^058-^064^091-^096^123-^255][ ]{1,}
Replace = nothing
Find = [ ]{1,}[^033-^043^045^047^058-^064^091-^096^123-^255]
Replace = nothing

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