求助：如何将一个多页的word文档按页批量生成新的单个文件

Wilber_lin

各位大佬：
       本人水平有限，有个情况希望大佬们帮忙一下，万分感谢！
       本人工作每天需要发50-100宗交办单，现在通过邮件合并，把Excle登记的数据通过WORD生成一个多页的文件，刚好1页是1宗工单，最后工续是把按照每页的交办编号生成单个文件（交办编号与文件名同名），求助如何实现？
      
举例          交办单
                      [2021年XX号]
   
           希望生成的文件名是按[2021年XX号]同名.        

A1233515

有那种文档拆分工具，可以找找看

413191246se

请 楼主 提供一下 2-3 页的附件才好。

ming0018

大纲菜单下有　标题拆分文档的　功能　可以了解一下！
自动动手　丰衣足食！

413191246se

明老师，前一段我也有试过 大纲视图 下拆分文档的功能，还录制了宏。只要先设置为标题 2，再拆分就可以了。

Wilber_lin

413191246se 发表于 2021-2-2 07:50
请 楼主 提供一下 2-3 页的附件才好。

  您好，由于工作保密性，不宜将内容公开；  我简单的草拟了《交办函》的模版，请帮忙如何把1个WORD拆分，按交办号

[2021]第1号、

[2021]第2号的方式生成多个文件，谢谢！

Wilber_lin

ming0018 发表于 2021-2-2 09:42
大纲菜单下有　标题拆分文档的　功能　可以了解一下！
自动动手　丰衣足食！

每天要拆分50-100宗，大纲的功能试过，比较繁琐，不太适合，谢谢您的意见。

Wilber_lin

A1233515 发表于 2021-2-1 17:23
有那种文档拆分工具，可以找找看

拆分工具不能指定生成文件名，每天拆分50-100宗，然后又要逐个文件重命名，更增加工作量。

413191246se

略。。。。

wangqh8203

论坛里有个高手写过一段代码，可以根据邮件合并每份单独保存文件。
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的值
        .ActiveRecord = wdFirstRecord
        For i = 1 To .RecordCount
            .FirstRecord = i
            .LastRecord = i
            .Parent.Destination = wdSendToNewDocument
            '取得数据源第1个和第2个字段（合并域）的当前数据字符串，用以命名文件
            myname = .DataFields(1).Value & .DataFields(2).Value
            .ActiveRecord = wdNextRecord
            .Parent.Execute  '每次合并一个数据记录
            With ActiveDocument
                .Content.Characters.Last.Previous.Delete  '删除分节符
                .SaveAs "D:\" & myname & ".docx"  '假设生成的各文档保存于D盘根目录下
                .Close '关闭生成的文档（已保存）
            End With
        Next
    End If
End With
Application.ScreenUpdating = True
End Sub