Select the column B of the used range, right click the selection and select Format Cells Menu, in Alingment enable "Wrap text" option, do this before copy to word.
To insert this procedure into your macro you can do something like this:
oRange.columns(2).wraptext=true
Backup before test.

__________________
Backup your original file before doing any modification.