WORD邮件合并后如何生成多个文档

Question

如题所述

Answer 1

操作方法人如下：

1、Excel文件做好准备。

2、打开一份Word模板。

3、然后单击Word工具栏中的邮件－选择收件人－使用现有的列表。

4、在选择现有列表之后，选择Excel表并单击open。

5、打开表后，选择个人信息所在的工作表。

6、打开后，将光标定位在插入名称的位置，然后单击insert merge字段以选择名称。

7、重复学院和专业的命名步骤，并插入信息。

8、插入信息后，单击邮件并合并－编辑单个文档。

9、然后选择全部并单击OK。

10、单击OK，邮件合并完成。

Answer 2

你会用邮件合并吗，先打开模板，然后选择需要链接的数据库，然后自动填充，然后合并输出，生成的就是你需要的多个文档（一个文件多页），如果需要把每个页分成一个文档一个文档，需要宏命令解决。
如何把一个word多页文档拆分为单页或多页（宏命令）
Option Explicit

Sub 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
oRange.Select

For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.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追问

你好，邮件合并我已经做好了，就是你说的宏要怎么具体操作呢？因为我没做过不懂，麻烦你指导一下。谢谢

本回答被网友采纳

Answer 3

压缩时候分开压缩追问

？不会啊，谢谢

追答

打包 可以定大小