用vba编程将excel中的数据批量填写到word里面

如下图，把EXCEL里面的数据批量填入下面的WORD模板里面。主要填写姓名、性别、出生年月、文化程度、职业这几项，下面的不用填。麻烦的是，有几个选项是在后面打钩的，不知道VBA编程能不能实现批量处理。这个WORD表格可以有变动，如果觉得麻烦的话，就不要做选项，直接把譬如性别“男”填上去也行的。先悬赏100分，帮我做完这个VBA程序后，在追加250分。有能力有兴趣的朋友请加下我QQ449297559，注明SOSO问问，我把EXCEL和WORD发给你。先谢啦~~

发两个文件到908856685@qq.com，应该可以实现。以下是word中的主要代码：

Sub test()
Dim xCel As New Excel.Application
Dim xWbk As Excel.Workbook
Dim xSht As Excel.Worksheet

Set xWbk = xCel.Workbooks.Open("D:\xxx\Memo+Browse.xlsx", 0, 1)
Set xSht = xWbk.Sheets(1)
MsgBox xSht.Range("A2")

xWbk.Close 0
xCel.Quit
Set xCel = Nothing
End Sub

一般象这样的表格，直接在EXCEL处理比较方便，不需要借助WORD。看你的叙述，好象并不复杂。如果有兴趣我可以帮你做。用公式也好用编程也好都可以。

介绍一本，《Excel2003 高级VBA编程宝典》电子工业出版社，美John Walkenback著，带光盘，这本书主要是针对比较熟悉Excel的用户，对VBA来说是初中级的用户，对VBA知识的介绍比较全面、实用。当然，Excel的帮助系统其实是最好的一本书。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息