Tag: mailmerge

将数据从excel导入word

给一个微软的Word邀请模式，以及一个Excel工作表包含人民与他们的信息列表。 目的是允许在Excel列表中search想要select的人的方法。 然后自动将他的信息添加到Word邀请模型中进行打印。 这里是一个例子： Word邀请模式： Mr: ……….. born at: ……… code:…….. we are honored to have you in the school tomorrow. thank you. Excel工作表 Num first-name last-name birth-date code 1 jhon sweeft 01-01-1994 1011 2 michal yves 02-06-1989 1201 3 simon mark 30-11-1973 1202 如果我们select数字1的人，Word的邀请模式如下： Mr: jhon sweeft bored at: 01-01-1994 code:1011 we are horn […]

如何访问mailmerge收件人variables？

我需要访问这个值，这可能吗？ 它存储在哪里 我需要通过VBA访问它（它在脚本中使用）。 这是我想要访问的号码的图片。

表select邮件合并从Excel到Word的错误

首先在这里是我的代码。 Sub RunMerge() ' Word constants Dim wd As Object Dim wdocSource As Object Dim strWorkbookName As String On Error Resume Next Set wd = GetObject(, "Word.Application") If wd Is Nothing Then Set wd = CreateObject("Word.Application") End If On Error GoTo 0 Set wdocSource = wd.Documents.Open(ThisWorkbook.Path & "\AAFCAAC-#4077508-v1-AAFC-FFPB-COPE-SATD-_AgriInnovation_Draft_Survey_Instructions_189318.doc") strWorkbookName = ThisWorkbook.Path & "\" & "MD.xlsm" […]

MailMerge Excel到Word单个文件

我正在尝试创build以下内容： 在Excel中，数据被存储以创build具有单个pdf文件中的输出的邮件合并，具有来自数据的文件名“Letter + name”。 个别文件需要用Excel中的“创build字母”button来创build。 我几乎在那里，唯一的问题是，我有个人的PDF文件创build，但所有与每行1相同的数据。 我怎样才能创build具有单独的数据每个文件的单个文件？ Sub RunMailMerge() Dim wdOutputName, wdInputName, PDFFileName As String Dim x As Integer Dim nRows As Integer wdInputName = ThisWorkbook.Path & "\Templates\LetterExample.docx" Const wdFormLetters = 0, wdOpenFormatAuto = 0 Const wdSendToNewDocument = 0, wdDefaultFirstRecord = 1, wdDefaultLastRecord = 3 'This will get you the number of records "-1" accounts […]

Word邮件合并SQL语句不起作用

我有一个VB.NET项目，我正在尝试合并Excel文档与Word文档（包含合并域）。 代码在我的代码的其他部分的相同的过程中工作得很好（以稍微修改的forms），但是这个完全不起作用。 RecordCount保持返回-1，这似乎表明合并问题。 这是我到目前为止的代码，它已经破裂了： Dim wdECASuitApp As New Word.Application Dim wdECASuitDoc As New Word.Document Dim Records As Integer wdECASuitDoc = wdECASuitApp.Documents.Open("X:\My Template.doc") wdECASuitApp.Visible = False 'Set this to False before going live — true for debugging wdECASuitDoc.MailMerge.OpenDataSource(Name:=SourceFile, SQLStatement:="SELECT * FROM [Sheet1$] WHERE [Client Short] = 'ABC'") 上面的代码最后一行运行后， wdECASuitDoc.MailMerge.DataSource.RecordCount返回-1，我的邮件程序跳过这一节，因为没有logging。 我主要工作在SQL Server，所以我知道我的SQL语句的语法是正确的，如果这是一个SQL Server查询，但我不知道在这种情况下使用SQL的任何特定约定。 在同一个程序中执行的其他合并很好，但是他们的SQL语句不包括任何单引号。 我想知道是否单引号需要以某种方式逃脱。 问题是在上面代码块的最后一行OpenDataSource 。 […]

在embedded的.docx（Word）文件上运行Excel中的邮件合并

请帮忙解决这个问题，因为我被困在最后一个阶段，试图在下面的代码中正确定义我的variables。 我想按顺序执行以下操作： 点击“CommandButton1”button 然后将打开一个名为“CR_MMFormTest”的embedded式文档（目前已经完成的没有数据源的mergefields） VBA帮助我创build一个窗体的副本，并将其用于…. 调用函数DistrictMailMerge 我遇到的问题在于3号和4号。 副本脚本不适用于embedded的文档。 它会说 运行时错误'5174'：对不起，我们无法find您的文件。 是移动，重命名还是删除？ 我无法使用函数DistrictMailMerge来识别该函数应该在打开的文档上工作 我试过的：我想为我的embedded式文档创build文档打开事件，但它不会工作。 文档仅作为临时文档打开，脚本不会保存。 所以我不能只是在打开的事件中执行DistrictMailMerge函数而不使用Excel来代替。 我认为这个问题在于这些文件的性质。 它们并不像一般的Word文档那样真正“存在”。 我想知道有没有人可以帮助我。 这是子程序： Private Sub CommandButton1_Click() Sheets("Resource Bank").Select ActiveSheet.Shapes("CR_MMFormTest").Select Selection.Verb xlVerbOpen Call DistrictMailMerge End Sub 这是我打算打开的文档打电话的function： Function DistrictMailMerge() Application.ScreenUpdating = False On Error GoTo NoKTOAccess Application.Documents.Add ActiveDocument.FullName Close_All_Except_Active_Document RunMMKTO Exit Function NoKTOAccess: If Err.Number = 5174 Then RunMMPEO End […]

如何根据合并的数据使邮件合并显示不同或删除TEXT？

我正在收集信件，其中一行是“你现在的债务是（合并数据）”。 如果合并的数据量是0.00美元，我想完全删除这封信中的这个句子。 那可能吗？ 例如，而不是： Your account number: (123456) Your last active date: (1/2/13) Your current debt is: ($0.00) Your sales to date are: ($12.34) 它会显示为： Your account number: (123456) Your last active date: (1/2/13) Your sales to date are: ($12.34) 对于该示例，合并数据在括号中进行说明。 其余的是正常的文字。 有任何想法吗？

VBA – 运行时错误438

我正在使用VBA自动化mailmerge 3例：请参阅我的代码如下： （1）我需要根据每个工作表生成证书。 （2）证书名称分别为“上周四”和“AAA”/“BBB”/“CCC”（以工作表为准）。 例如。 25062015AAA.docx（用于工作表1），25062015BBB.docx（用于工作表2）和25062015CCC.docx（用于工作表3）。 不过目前，我的代码是用不同的名字保存第一个生成的mailmerge。 或者它抛出一个Runtime Error: 438 – Object required error ，当我编码如下。 有人可以告诉我我要去哪里吗？ 感谢您一如既往的帮助！ Public Function LastThurs(pdat As Date) As Date LastThurs = DateAdd("ww", -1, pdat – (Weekday(pdat, vbThursday) – 1)) End Function Sub Generate_Certificate() Dim wd As Object Dim i As Integer Dim wdoc As Object Dim FName As String Dim […]

如何使用邮件合并从Excel中的符号到Word

我有一个Excel表，其中包含大量的数据..一些字段包含符号数据，而其他包含string和整数数据。 我有一个书面的Java程序，从EXCEL表获取数据，并使用Mail Merge将其放入Word文件。 整体事情工作正常，但是当涉及到Symbols图像它的价值，但没有拿起我需要放入文件的实际图像。 请引导我如何拿起在Excel工作表中可见的图像，而不是其实际值。 Word文件显示þ而不是在Excel工作表中可见的Tick or Cross图像。

Word 2007邮件合并与2列

我试图使邮件合并为2列。 我可以使用邮件合并，所以我在Excel中有一个源数据。 我准备的文件中有代表Excel数据的字段。它有两列，我想如果我input列的末尾，另一个logging将继续在下一列。 但那是错误的 为了更好的理解，这里有一些图片： 如果我试图填充两列，我在两列中都有相同的数据。 再次的图片： 谢谢你的想法。