几天前，由于工作需要，有数百人不得不向相关人员反馈一堆问题。使用问题反馈表word电子邮件合并功能调用excel产生的。word邮件合并只能在一个文件中生成，而不能在每个记录中生成单独的文件。如果涉及数百人，如果手工拆成单独的文件，不要累死？作为资深菜鸟，只知一不知二是必然的。
所以，在网上找大神。真的有大神提供了解决方案，说下一段是VBA代码放到word里去运行就OK了！
----------------我是菜鸟，不会排版-----------------
(这个代码不是菜鸟应该研究的。反正我们只需要按照中间注释的说明修改路径就可以了。我试过。
VBA代码：
Sub myMailMerge()
Dim myMerge As MailMerge, i As Integer, myname As String
Application.ScreenUpdating = False
Set myMerge = ActiveDocument.MailMerge
With myMerge.DataSource
If .Parent.State = wdMainAndDataSource Then
.ActiveRecord = wdFirstRecord
For i = 1 To .RecordCount
.FirstRecord = i
.LastRecord = i
.Parent.Destination = wdSendToNewDocument
以数据源第一个和第二个字段的当前数据命名所生成的文件名，请修改命名公式
myname = .DataFields(1).Value & .DataFields(2).Value
.ActiveRecord = wdNextRecord
.Parent.Execute
With ActiveDocument
.Content.Characters.Last.Previous.Delete
生成的文档保存在D盘根目录下，请修改文档保存的路径
.SaveAs "D:\" & myname & ".doc"
.Close
End With
Next
End If
End With
Application.ScreenUpdating = True
End Sub
----------------我是菜鸟，不会排序-----------------
但是大神就是大神。他绝对想不到我们菜鸟。word中怎么运行VBA没有。我不得不继续搜索，终于明白了。word中运行VBA总共分为三个步骤(和把大象放在冰箱里一样简单):
第一步：打开word。按下键盘上的两个键：ALT和F11。
第二步:双击左侧ThisDocument节点，会弹出一个大的空白窗，把那堆VBA粘贴代码。
第三步:点击上面一排按钮中看起来像播放按钮的右小三角按钮。OK了!
点击后，您会发现界面不断闪烁，每次闪烁表示生成一个单独的文件，闪烁后，您到D盘根目录找到一堆生成的文件(VBAD盘根目录默认设置在代码中，就是这句话:.SaveAs "D:\……可自行修改)。
-----------------------
编后废话：
这是小编头条发的第一张贴纸，自我介绍：
菜鸟最怕的就是看大神的攻略，都是术语看头大！作为一名对一切都感兴趣的资深菜鸟，我已经致力于研究各种技术20多年了。我从事网站、写程序、艺术家、书法、绘画、文章、管理和假装。IT最懂艺术的，搞HR最懂画画的，最懂文字里的程序的，最后一事无成，博而不精，只留下一堆手记。从菜鸟的角度写手记，同样的白更容易理解，你值得拥有！
