VBA - 通过访问合并邮件答案

【问题标题】：VBA - Mail Merge via accessVBA - 通过访问合并邮件
【发布时间】：2010-03-05 01:30:27
【问题描述】：

我不知道为什么我的代码不起作用.. 我在 Access 03 中的 vba 中有代码，它打开一个运行邮件合并过程的 word 文档。当代码运行时，它会询问我标题分隔符是什么。我将导出文件中的那些指定为字段分隔符的逗号和记录分隔符。在我用 word 确认后，我得到一个运行时错误。

我得到的错误是：运行时错误“5922”： Word 无法打开数据源。

strExportFullyQualifiedName 是一个文本文件，它使用其中列出的字段名称导出，用作数据源文件。

我检查了链接并验证，一切都存在。未建立连接。 strExportFullyQualifiedName 是 txt 文件的位置。

 With objWordDoc
        .MailMerge.OpenDataSource _
          Name:=strExportFullyQualifiedName, Format:=wdOpenFormatAuto, _
          ConfirmConversions:=False, ReadOnly:=False, SubType:=wdMergeSubTypeAccess, AddToRecentFiles:=False
        .MailMerge.Destination = wdSendToNewDocument
        .MailMerge.MainDocumentType = wdDirectory
        .MailMerge.SuppressBlankLines = True
    End With

谢谢！

【问题讨论】：

标签： ms-access vba ms-word

【解决方案1】：

您是否参考了词库（代码窗口->工具->参考）？如果没有，您将需要使用内置常量的值，例如 wdOpenFormatAuto

编辑重新评论

由于您有一个文本文件，我认为您的类型不正确。尝试类似：

''To create output, if required
''DoCmd.TransferText acExportDelim, , "qryMailMerge", strExportFullyQualifiedName, True

 With objWordDoc
     .MailMerge.OpenDataSource _
      Name:=strExportFullyQualifiedName, Format:=wdOpenFormatText
     .MailMerge.Destination = wdSendToNewDocument
     .MailMerge.MainDocumentType = wdDirectory
     .MailMerge.SuppressBlankLines = True
 End With

【讨论】：

是的，我愿意。它是：Microsoft Word 11.0 对象库

【解决方案2】：

您说过两次 strExportFullyQualifiedName 是文本文件的位置。我以前从未自动化过这个过程，但我认为你只能从 Word 文件中导出。
strExportFullyQualifiedName 是否同时包含文件路径和文件名？例如“C:\Test.Doc”？

【讨论】：

@PowerUser：代码运行的上下文是Access，不是Word，不是吗？
如果我错了，请纠正我，但我认为这里代码运行的内容并不重要。Mail Merge 是 MS Word 中的一个功能，据我所知，它只能使用 Word 文件。所以，他的代码应该引用一个 Word 文件作为他的源代码。
Word 邮件合并可以使用任意数量的数据源、文本文件、Excel 文件、Access MDB 等。它不需要Word 文件作为数据源。
我能够通过记录 Word 中的连接宏，编辑一些内容并将其放回 Access 中，从而使其正常工作！