怎么在word中为自动换行后的文字自动加上换行符

如何在word中为自动换行后的文字自动加上换行符？
在WORD2007里，如果内容是很长的一行，通过调节WORD的标尺，或者在TXT中自动换行，或者在WORD中加入分栏，都会变成短短的很多行，但这样子换行的文字每行后面都没有换行符。一复制到别的地方就变回了长长的一行求教如何在每行后面加上换行符，使得复制到其他地方他的长度不变？因为内容很多，手动加上去不现实，跪求解决方法。

如果是录制宏也可以？应该怎么操作？
------解决方案--------------------
用宏，代码

Sub new()

    For i = 1 To 17 '这里的17为文件实际字数/10，假设文件总共字数170字'

    Selection.MoveRight Count:=7 '这里的7为每行字数'

    Selection.TypeParagraph

    Next   

End Sub