One might approach it via a wildcard Find/Replace, where:
Find = ([.:;\!\?] <*>)^32
Replace = \1^s
This way, the 'dangling word' problem will be resolved for whatever system the document is viewed on, even if the page layout changes. No code required.

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