Question

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

Word中的宏我看过一些实例，但是对每个类和方法、属性是干什么用的不是很清楚。
excel中的数据是一条一条的信息，有名称、专业两个列（有多条信息）

我想通过Word中的宏将excel中名称、专业以自定义格式分别读取到Word中的相应位置（用循环将记录一条一条读取），并且每一条信息在Word中对应一页（Word中每一页只对应excel中的一条记录）。
能不能将word中的宏跟邮件合并相结合？

我想根据从excel中读取的数据字数的不同来设计不同的格式。

麻烦各位大侠给出建议，小弟谢了。。。

Answer 1

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

Answer 2

在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协调工作。

Answer 3

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

Answer 4

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

Answer 5

用邮件合并最简单快捷