邮件合并后，批量保存为单个word时页脚出现错误

diqi1234

各位大神好，偶然看到这个非常实用的网站后发现这里的高手特别多。同时参考其他人的帖子后也解决了很多办公问题。本人现在遇到的问题如下：1.邮件合并时，复制了下面代码后，一旦在页脚也插入域，就会出现移位或者是直接显示域名：
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(3).Value
.ActiveRecord = wdNextRecord
.Parent.Execute
With ActiveDocument
.Content.Characters.Last.Previous.Delete
.SaveAs "F:\doc\" & myname & ".doc"
.Close
End With
Next
End If
End With
Application.ScreenUpdating = True
End Sub


2.希望有大神能将这段代码改进下，能直接保存为PDF，因为每天有几千份文件输出到印刷厂打印，印刷厂只接收PDF文档，同时为防止装订出错，页脚一定要插入编号和姓名。

duquancai

连续几个都在问这类问题 ，这是不是很吃香啊？

diqi1234

是的，现在都追求高效办公。大神您可以解决这个页脚问题吗？以及另存为PDF，感激不尽

duquancai

diqi1234 发表于 2016-11-22 18:54
是的，现在都追求高效办公。大神您可以解决这个页脚问题吗？以及另存为PDF，感激不尽

问题是可以解决，也不难，给你搞一下吧！！！

1. Sub myMailMerge()
   
2.    Dim myMerge As MailMerge, i As Integer, myname As String
   
3.    Application.ScreenUpdating = False
   
4.    Set myMerge = ActiveDocument.MailMerge
   
5.    With myMerge.DataSource
   
6.       If .Parent.State = wdMainAndDataSource Then
   
7.          .ActiveRecord = wdFirstRecord
   
8.          For i = 1 To .RecordCount
   
9.             .FirstRecord = i
   
10.             .LastRecord = i
    
11.             .Parent.Destination = wdSendToNewDocument
    
12.             myname = .DataFields(1).Value & "-" & .DataFields(3).Value
    
13.             .ActiveRecord = wdNextRecord
    
14.             .Parent.Execute
    
15.             With ActiveDocument
    
16.                .ExportAsFixedFormat "F:\doc" & myname & ".pdf", 17
    
17.                .Close 0
    
18.             End With
    
19.          Next
    
20.       End If
    
21.    End With
    
22.    Application.ScreenUpdating = True
    
23. End Sub

复制代码

duquancai

diqi1234 发表于 2016-11-22 18:54
是的，现在都追求高效办公。大神您可以解决这个页脚问题吗？以及另存为PDF，感激不尽

看来楼主是个十足的伸手党，得做个标记！

maoer8783

很好，学习了！

diqi1234

duquancai 发表于 2016-11-23 19:25
看来楼主是个十足的伸手党，得做个标记！

谢谢大神，哈哈。我是一点都没有接触过编程方面的东西，工作是做市场的，但是因为特别原因，接了个项目，每天出上千份报告，被逼的没办法了。我现在决定开始入门，这个太神奇了，可以避免很多基础重复工作。

diqi1234

duquancai 发表于 2016-11-23 19:25
看来楼主是个十足的伸手党，得做个标记！

大神，烦请加q 3348291996，已留言，邀请有偿帮继续优化