大家好,乐天来为大家解答以下的问题，关于邮件合并生成多个单个word文档，邮件合并生成多个文档这个很多人还不知道,现在让我们一起来看看吧！
1、你会用邮件合并吗，先打开模板，然后选择需要链接的数据库，然后自动填充，然后合并输出，生成的就是你需要的多个文档（一个文件多页），如果需要把每个页分成一个文档一个文档，需要宏命令解决。
2、如何把一个word多页文档拆分为单页或多页（宏命令）Option ExplicitSub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content oRange.Collapse wdCollapseStart ***.Select For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oSrcDoc.Bookmarks("page").Range.Copy ***.Windows(1).Activate Application.***.Target = wdBrowsePage Application.***.Next strSrcName = oSrcDoc.FullName strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _ fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName)) Set oNewDoc = Documents.Add Selection.Paste oNewDoc.SaveAs strNewName oNewDoc.Close False Next Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox "结束！"End Sub。
本文分享完毕，希望对大家有所帮助。
标签：
免责声明：本文由用户上传，如有侵权请联系删除！