I need a macro to move dangling words to a new line please

[iNeedaMacroPlease]

Problem



I would like to use a macro to check a document in full and identify dangling words at the end of a line, e.g:

This is an example of the dangling word problem. This
is the dangling word.

And move the dangling word to the next line, e.g:

This is an example of the dangling word problem.
This is the dangling word.

TIA