如何按照拆分邮件合并后的文档并用文档中的姓名分别生成新文件名？

zphufo · 发表于 2017-12-21 11:31

如何按照拆分邮件合并后的文档并用文档中的学生姓名分别生成新文件名？每个学生有两页，每个学生一个文档。（领导要求的）
看了守柔版主的几个帖子，还是不会运用。太笨了。

分割文档.rar (79.07 KB, 下载次数: 16)

duquancai · 发表于 2017-12-21 13:23

写VBA代码。。。。。。

zphufo · 发表于 2017-12-21 14:07

duquancai 发表于 2017-12-21 13:23
写VBA代码。。。。。。

可是我什么也不会啊

duquancai · 发表于 2017-12-21 14:10

zphufo 发表于 2017-12-21 14:07
可是我什么也不会啊

你什么也不会，那找会的人定制。专业的人干专业的事，你干好你自己的强项就行了！

zphufo · 发表于 2017-12-21 14:43

duquancai 发表于 2017-12-21 14:10
你什么也不会，那找会的人定制。专业的人干专业的事，你干好你自己的强项就行了！

领导布置的。每个人都要完成。我有什么办法呢？
－－－－－－－－－－－－－－－－－－－－－－
现在搞好了，可是重新生成的文件的格式跟原文件完全不一样。怎么办呢？

duquancai · 发表于 2017-12-21 14:57

zphufo 发表于 2017-12-21 14:43
领导布置的。每个人都要完成。我有什么办法呢？
－－－－－－－－－－－－－－－－－－－－－－
现在搞 ...

手工做吧！估计领导也考虑了你的工作量的。

szqhb · 发表于 2017-12-21 16:39

提供邮件合并的原始文档和数据源来试一下

zphufo · 发表于 2017-12-21 18:36

szqhb 发表于 2017-12-21 16:39
提供邮件合并的原始文档和数据源来试一下

在这

t705.rar (11.45 KB, 下载次数: 24)

你试下吧

zphufo · 发表于 2017-12-21 19:38

通过修改并保存为默认模板算是搞定了格式了

szqhb · 发表于 2017-12-22 15:43

本帖最后由 szqhb 于 2017-12-22 16:52 编辑

zphufo 发表于 2017-12-21 18:36
在这

你试下吧

你要学会用宏，下面这个宏是针对你这个“学籍表”的邮件合并来拆分的，从Word主文档里打开这个宏。
Sub 邮件合并另存为独立文档1()
'主文档的类型为信函
'合并全部数据记录
'假设主文档已链接好数据源，可以进行正常的邮件合并
Dim fso, f1
Dim t As String
t = ActiveDocument.Path
Set fso = CreateObject("scripting.filesystemobject")
If (fso.folderexists(t & "\拆分后文档")) Then
      '如果存在不管他
   Else
   Set f1 = fso.createfolder(t & "\拆分后文档")
   End If
'以上创建文件夹，多谢Mn860429卡卡西

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
         '取得数据源第1个字段（合并域）的当前数据字符串，用以命名文件
         myname = "2017年秋季入学学籍表（" & .DataFields(1).Value & ")"
         .ActiveRecord = wdNextRecord
         .Parent.Execute  '每次合并一个数据记录
         With ActiveDocument
            .Content.Characters.Last.Previous.Delete  '删除分节符
            .SaveAs FileName:=t & "\拆分后文档\" & myname & ".doc" '拆分文档命名及存储位置
            .Close  '关闭生成的文档（已保存）
         End With
      Next
End If
End With
Application.ScreenUpdating = True '恢复屏幕更新
MsgBox "拆分完成，请到本目录下“拆分后文档”文件夹查看！", 64, "提示"
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何按照拆分邮件合并后的文档并用文档中的姓名分别生成新文件名？