邮件合并形成的word如何拆分

xuchao0027

我完成了邮件合并形成了一个大的word 现在希望每份合同形成一个word文档 并且以承租人命名。我在论坛里面看了各种方法 但是不知道为什么我运行-不功 宏

duquancai

现在你的附件已经是邮件合并后的多页文档，再按页拆分文档就行。当然在你邮件合并的同时就可以一步完成每页一个文档！！！

duquancai

打开Word文档，点击按钮》》》》》》
注：按照你的需求“承租人”为文件名保存，如果有同名的就别怪我哈！！！

小花鹿

做过EXCEL操作WORD，没做过WORD操作EXCEL，感觉道理应该是一样的

xuchao0027

duquancai 发表于 2017-5-9 18:55
打开Word文档，点击按钮》》》》》》
注：按照你的需求“承租人”为文件名保存，如果有同名的就别怪我哈！ ...

我为什么点击按钮没有反应呢，还有数字在word里面  怎么显示有千分位和两位小数呢 ，麻烦您啦

xuchao0027

duquancai 发表于 2017-5-9 17:55
现在你的附件已经是邮件合并后的多页文档，再按页拆分文档就行。当然在你邮件合并的同时就可以一步完成每页 ...

在合并的时候如何完成呢  

dianbotang

有两种方法可以实现你的要求。
一种是在word生成合并文档后，对合并文档按节进行分页，对分页后的文档（批量）进行重命名。
另一种是用vba进行邮件合并生成单独的文档并重命名。

1. Sub 邮件合并生成单独文档()
   
2.   Dim StartTime As Single
   
3.   StartTime = Timer  '计时开始
   
4. 
   
5.   Application.ScreenUpdating = False
   
6. 
   
7.   Dim myMerge As MailMerge, mySource As MailMergeDataSource
   
8.   Set myMerge = ActiveDocument.MailMerge
   
9.   Set mySource = myMerge.DataSource
   
10.   Dim myPath As String
    
11.   myPath = ActiveDocument.Path
    
12.   
    
13.   If myMerge.State = wdMainAndDataSource Then
    
14.     Dim I As Integer
    
15.     For I = 1 To mySource.RecordCount
    
16.       mySource.FirstRecord = I
    
17.       mySource.LastRecord = I
    
18.       mySource.ActiveRecord = I
    
19.       myMerge.Destination = wdSendToNewDocument
    
20.       myMerge.Execute
    
21. 
    
22.       With ActiveDocument
    
23.         .Content.Characters.Last.Previous.Delete
    
24.         .SaveAs myPath & "" & I & mySource.DataFields(2).Value
    
25.         .Close
    
26.       End With
    
27.     Next
    
28.   End If
    
29.   Application.ScreenUpdating = True
    
30. 
    
31.   MsgBox "共生成" & mySource.RecordCount & "个Word文件，耗时 " & Timer - StartTime & " 秒！"
    
32. End Sub

复制代码

gwfzh

duquancai 发表于 2017-5-9 18:55
打开Word文档，点击按钮》》》》》》
注：按照你的需求“承租人”为文件名保存，如果有同名的就别怪我哈！ ...

怎么设置有密码？？？？？？？