In my original code the paragraph is split with
Code:
vWord = Split(oRng.Text, Chr(32))
i.e. it splits at the space character 'Chr(32)' between the 'words'. However it can only split at spaces if there are spaces, and if you don't get the commas and single quotes, the 'spaces' are not space character 32, but probably non-breaking spaces 'Chr(160)'.
Change the 32 to 160 and see if that fixes it. If not, then, as Andrew indicates, we need to see a document sample.