企业级服务器配置_湖南省工程建设信息官方网站_百度公司简介_百度一下百度一下你就知道

word emailing + vba拆分word文件并转pdf

Sub BatchMailMerge()
Dim DF As MailMergeDataField
Dim FN As MailMergeFieldName
Dim i As Integer
Dim NFN As String
Dim DFIThisDocument.ActivateIf ThisDocument.MailMerge.DataSource.Name = "" ThenMsgBox "邮件合并尚未设置完毕，请完成设置后重新运行", vbCriticalExit SubEnd IfUserForm1.ComboBox1.ClearFor Each FN In ActiveDocument.MailMerge.DataSource.FieldNamesUserForm1.ComboBox1.AddItem (FN)NextUserForm1.ShowFor i = Int(UserForm1.TextBox1) To Int(UserForm1.TextBox2)ActiveDocument.MailMerge.DataSource.ActiveRecord = iFor Each DFI In Split(UserForm1.Label7, "-")NFN = NFN & ActiveDocument.MailMerge.DataSource.DataFields(Int(DFI))NextWith ActiveDocument.MailMerge.Destination = wdSendToNewDocument.SuppressBlankLines = TrueWith .DataSource.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecordEnd With.Execute Pause:=False
End WithActiveDocument.SaveAs2 ThisDocument.Path & "\" & NFN & ".docx"ActiveWindow.CloseNFN = ""Next
End Sub