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

Posted 2023-03-15

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

参考技术A 发两个文件到[e-mail]，应该可以实现。以下是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 参考技术B 图呢 参考技术C 在网上搜搜邮件合并吧，你一定可以办到的 参考技术D 可以完成，关键是你是什么题目，图片传上来看一下。不是很明白！