如何将数据从excel导出为word作为文本使用VBA

I have the following code found from this web site. It works almost, except that it export the date into a form in Word document. Instead, I would like to have paragraphs, keeping the original font, size and color in excel. Could anyone help? Very much appreciated!I have the following code found from this web s