怎样用Word中的宏将excel中的数据读取到Word中（按照Word中的自定义格式）

1. Sub test()
   

2.     Set oExcel = GetObject(, "Excel.Application")

3.     Set oWb = oExcel.Workbooks.Open("D:\test.xls") '写你自己的Excel路径

4.     MsgBox oWb.Sheets("Sheet1").Range("C5") '取"Sheet1"工作表C5单元格的值

5.     oExcel.Quit '退出Excel

6. End Sub  

按 Alt+F11 打开VBE窗口，通过菜单选择“插入”-“模块”，输入以上代码。 

这里采用的是后置绑定方法，无需事先加载Excel对象引用库。

如果在此过程中希望Excel窗口不可见，可在调用open方法打开Excel之前设置visible属性：

oExcel.Visible = False

在excel中录入好数据，在word中用邮件合并将数据合并到word中，

参考一：Office办公：巧用邮件合并批量制作并发送工资单
http://www.pootor.com/word-tutorial-mail-merge/

参考二： Excel做的公文自动生成系统
http://www.pootor.com/official-document-auto-create-system/
如果你的要求和这个相似可以参考这里面的VBA语句，让excel和word协调工作。

不需要用word的宏，单独一个邮件合并功能就足够完成你的想法了。

你的想法可以通过邮件合并功能实现，实在要用宏也可以，那个就要查资料了，太麻烦了。

用邮件合并最简单快捷