如何使用Aspose.Words在邮件合并时生成多个文档

1.如何使用Aspose.Words在邮件合并时生成多个文档

产生多个文档需要进行多次邮件合并。

如果需要将数据源中的所有数据都存在于一个单独的文件中，需要做到以下几点： 循环数据表中的所有行。 在邮件合并前载入（或复制）原始文档。

执行邮件合并，保存文件。 你可以在每个邮件合并前从一个文件或流中加载模板文件，但通常情况下，更为快速的方法是只加载一次文档，然后在每次邮件合并前从内存中复制。

要注意的是，执行邮件合并你应该有一个适当的模板文件。这个模板可以是一个Microsoft Word模板或一个普通的Microsoft Word文档，但它需要在插入数据的地方包含MERGEFIELD字段。

每个字段的名称应和数据源中相应的字段相同。 C# using System; using System.Data; using System.Data.OleDb; using System.IO; using System.Reflection; using Aspose.Words; namespace { class Program { public static void Main(string[] args) { //Sample infrastructure. string exeDir = Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location) + Path.; string dataDir = new Uri(new Uri(exeDir), @"../../Data/").LocalPath; (dataDir, "TestFile.doc"); } public static void (string dataDir, string srcDoc) { // Open the database connection. string connString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dataDir + "Customers.mdb"; OleDbConnection conn = new OleDbConnection(connString); conn.Open(); try { // Get data from a database. OleDbCommand cmd = new OleDbCommand("SELECT * FROM Customers", conn); OleDbDataAdapter da = new OleDbDataAdapter(cmd); DataTable data = new DataTable(); da.Fill(data); // Open the template document. Document doc = new Document(dataDir + srcDoc); int counter = 1; // Loop though all records in the data source. foreach (DataRow row in data.Rows) { // Clone the template instead of loading it from disk (for speed). Document dstDoc = (Document)doc.Clone(true); // Execute mail merge. dstDoc.MailMerge.Execute(row); // Save the document. dstDoc.Save(string.Format(dataDir + "TestFile Out {0}.doc", counter++)); } } finally { // Close the database. conn.Close(); } } } } VB Imports Microsoft.VisualBasic Imports System Imports System.Data Imports System.Data.OleDb Imports System.IO Imports System.Reflection Imports Aspose.Words Namespace Friend Class Program Public Shared Sub Main(ByVal args() As String) 'Sample infrastructure. Dim exeDir As String = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location) + Path. Dim dataDir As String = New Uri(New Uri(exeDir), "../../Data/").LocalPath (dataDir, "TestFile.doc") End Sub Public Shared Sub (ByVal dataDir As String, ByVal srcDoc As String) ' Open the database connection. Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataDir & "Customers.mdb" Dim conn As New OleDbConnection(connString) conn.Open() Try ' Get data from a database. Dim cmd As New OleDbCommand("SELECT * FROM Customers", conn) Dim da As New OleDbDataAdapter(cmd) Dim data As New DataTable() da.Fill(data) ' Open the template document. Dim doc As New Document(dataDir & srcDoc) Dim counter As Integer = 1 ' Loop though all records in the data source. For Each row As DataRow In data.Rows ' Clone the template instead of loading it from disk (for speed). Dim dstDoc As Document = CType(doc.Clone(True), Document) ' Execute mail merge. dstDoc.MailMerge.Execute(row) ' Save the document. dstDoc.Save(String.Format(dataDir & "TestFile Out {0}.doc", counter)) counter += 1 Next row Finally ' Close the database. conn.Close() End Try End Sub End Class End Namespace。

2.在excel中邮件合并转换为word,excel有多行信息如何用邮件合并转换到

一、首先：分两部分，1是excel相当于是合并邮件要用的数据源，需要把处理的信息明细在表格里分类维护好；2是word是合并后要打印或者生产邮件合并结果的，所以要先把需合并的项体现在word里相应的位置，并调整好格式。

二、邮件合并过程（以简单的制作工作证为例），大致分为4步：开始邮件合并、选择收件人、插入合并域、完成合并。1、开始合并邮件：选择工具栏上方的“邮件“→”开始邮件合并”→“电子邮件”2、选择收件人：鼠标点击“选择收件人”→“使用现有列表”→找到文件坐在位置选中→打开→选择“sheet”。

3.如何使用Aspose.Words在邮件合并时生成多个文档

产生多个文档需要进行多次邮件合并。

如果需要将数据源中的所有数据都存在于一个单独的文件中，需要做到以下几点： 循环数据表中的所有行。 在邮件合并前载入（或复制）原始文档。

执行邮件合并，保存文件。 你可以在每个邮件合并前从一个文件或流中加载模板文件，但通常情况下，更为快速的方法是只加载一次文档，然后在每次邮件合并前从内存中复制。

要注意的是，执行邮件合并你应该有一个适当的模板文件。这个模板可以是一个Microsoft Word模板或一个普通的Microsoft Word文档，但它需要在插入数据的地方包含MERGEFIELD字段。

每个字段的名称应和数据源中相应的字段相同。 C# using System; using System.Data; using System.Data.OleDb; using System.IO; using System.Reflection; using Aspose.Words; namespace { class Program { public static void Main(string[] args) { //Sample infrastructure. string exeDir = Path.GetDirectoryName(Assembly.GetExecutingAssembly().Location) + Path.; string dataDir = new Uri(new Uri(exeDir), @"../../Data/").LocalPath; (dataDir, "TestFile.doc"); } public static void (string dataDir, string srcDoc) { // Open the database connection. string connString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dataDir + "Customers.mdb"; OleDbConnection conn = new OleDbConnection(connString); conn.Open(); try { // Get data from a database. OleDbCommand cmd = new OleDbCommand("SELECT * FROM Customers", conn); OleDbDataAdapter da = new OleDbDataAdapter(cmd); DataTable data = new DataTable(); da.Fill(data); // Open the template document. Document doc = new Document(dataDir + srcDoc); int counter = 1; // Loop though all records in the data source. foreach (DataRow row in data.Rows) { // Clone the template instead of loading it from disk (for speed). Document dstDoc = (Document)doc.Clone(true); // Execute mail merge. dstDoc.MailMerge.Execute(row); // Save the document. dstDoc.Save(string.Format(dataDir + "TestFile Out {0}.doc", counter++)); } } finally { // Close the database. conn.Close(); } } } } VB Imports Microsoft.VisualBasic Imports System Imports System.Data Imports System.Data.OleDb Imports System.IO Imports System.Reflection Imports Aspose.Words Namespace Friend Class Program Public Shared Sub Main(ByVal args() As String) 'Sample infrastructure. Dim exeDir As String = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location) + Path. Dim dataDir As String = New Uri(New Uri(exeDir), "../../Data/").LocalPath (dataDir, "TestFile.doc") End Sub Public Shared Sub (ByVal dataDir As String, ByVal srcDoc As String) ' Open the database connection. Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataDir & "Customers.mdb" Dim conn As New OleDbConnection(connString) conn.Open() Try ' Get data from a database. Dim cmd As New OleDbCommand("SELECT * FROM Customers", conn) Dim da As New OleDbDataAdapter(cmd) Dim data As New DataTable() da.Fill(data) ' Open the template document. Dim doc As New Document(dataDir & srcDoc) Dim counter As Integer = 1 ' Loop though all records in the data source. For Each row As DataRow In data.Rows ' Clone the template instead of loading it from disk (for speed). Dim dstDoc As Document = CType(doc.Clone(True), Document) ' Execute mail merge. dstDoc.MailMerge.Execute(row) ' Save the document. dstDoc.Save(String.Format(dataDir & "TestFile Out {0}.doc", counter)) counter += 1 Next row Finally ' Close the database. conn.Close() End Try End Sub End Class End Namespace。

4.word如何合并邮件

“邮件合并”是Word的一项高级功能，是办公自动化人员应该掌握的基本技术之一。

但是大多数书上对“邮件合并”的介绍都很简单，如果按照书的上介绍去做，合并打印出的邮件并不能完全令人满意。教你几个邮件合并技巧，希望能帮你提高办公效率。

1. 用一页纸打印多个邮件 利用Word“邮件合并”可以批量处理和打印邮件，很多情况下我们的邮件很短，只占几行的空间，但是，打印时也要用整页纸，导致打印速度慢，并且浪费纸张。造成这种结果的原因是每个邮件之间都有一个“分节符”， 使下一个邮件被指定到另一页。

怎样才能用一页纸上打印多个短小邮件呢？其实很简单，先将数据和文档合并到新建文档，再把新建文档中的分节符（^b）全部替换成人工换行符（^l）（注意此处是小写英语字母l，不是数字1）。具体做法是利用Word的查找和替换命令，在查找和替换对话框的“查找内容”框内输入“^b”，在“替换为”框内输入“^l”，单击“全部替换”，此后打印就可在一页纸上印出多个邮件来。

2. 一次合并出内容不同的邮件 有时我们需要给不同的收件人发去内容大体一致，但是有些地方有区别的邮件。如寄给家长的“学生成绩报告单”，它根据学生总分不同，在不同的报告单中写上不同的内容，总分超过290分的学生，在报告单的最后写上“被评为学习标兵”，而对其它的学生，报告单中则没有这一句。

怎样用同一个主文档和数据源合并出不同的邮件？这时就要用到“插入Word域”。在邮件中需出现不同文字的地方插入“插入Word域”中的“if…then…else(I)…”。

以“学生成绩报告单”为例，具体做法是将插入点定位到主文档正文末尾，单击邮件合并工具栏中“插入Word域”，选择下级菜单中的“if…then…else(I)…”，在出现的对话框中填入，单击“确定”按钮。 有时可根据需要在两个文字框中写入不同的语句。

这样就可以用一个主文档和一个数据源合并出不同内容的邮件来。 3. 共享各种数据源 邮件合并除可以使用由Word创建的数据源之外，可以利用的数据非常多，像Excel工作簿、Access数据库、Query文件、Foxpro文件内容都可以作为邮件合并的数据源。

只要有这些文件存在，邮件合并时就不需要再创建新的数据源，直接打开这些数据源使用即可。需要注意的是：在使用Excel工作簿时，必须保证数据文件是数据库格式，即第一行必须是字段名，数据行中间不能有空行等。

这样可以使不同的数据共享，避免重复劳动，提高办公效率。 4. 筛选与排序 用邮件合并帮助器中的“查询选项”，可以筛选记录有选择地进行合并，也可以在合并的同时对记录进行某种排序。

工作时记住它们，可以提高你的办公效率。