word批量另存为文档中指定的数据源，如1号张三~1000号李四

心照不宣525

请教各位老师，       我们有个excel表格A.xls，内容为学生的各科成绩，通过邮件合并工具，建立了word版本的学生成绩表单，如果1号张三同学，语文90分，数学93分.....; 2号王小二同学。。。我们需要保存1-1000号学生的每个人的成绩，每个人的成绩都 ”另存为“ word.doc格式。问题1，如果在点击“另存为”2号王小二的时候，另存为对话框中出现的还是“1号张三同学”，可否设置成自动“另存为”--“2号王小二同学”呢？
问题2，有没有设置宏程序，可以批量另存为1-1000号同学的成绩呢？非常感谢

liuhoubin168

发现能够看懂提问者所要表达的意思，还是很有水平的。

楼主居然不提供样表和文档样式，给回答者又增加了难度。

这个是能够实现的，而且能通过代码将邮件合并文档变为普通文档。

liuhoubin168

Sub 邮件合并分批存()
  Dim doc As Document
  
  '循环以下代码：
  Set doc = Documents.Open("你邮件合并文档含路径")
  doc.MailMerge.DataSource.ActiveRecord = 20   '跳转到指定路径,变化数据20
  doc.MailMerge.MainDocumentType = wdNotAMergeDocument  '将邮件合并文档作为普通文档
  doc.Saveas "要保存的文档名"
  doc.Close
  

End Sub