vba - Microsoft Word 邮件合并数据源自动定位

Question

我写了一个 Excel > Word 邮件合并，其中 word 文档是邮件合并模板。

目前 excel 文件(数据源)的位置必须进行硬编码。

我希望能够在网络上移动文件，只要它们在同一个文件夹中，所以它识别数据源仍然是excel文件。

我目前有这段代码，我认为它可以工作。在任何时候打开 word 文档时，它将通过查找文件的当前目录并查找文件名 PM MailMerge.xlsm 来重新创建数据源。

然后当它被创建时，一个消息框应该显示新的邮件合并数据源。

这行得通，但是当我将这两个文件移动到任何其他文件夹时，它会失败并显示找不到数据源。

代码:

Private Sub Document_Open()

Dim strBook As String
Dim strBookName As String
Dim strDataSource As String

strBookName = "\PM MailMerge.xlsm"
strBook = ActiveDocument.Path & strBookName
strDataSource = ActiveDocument.MailMerge.DataSource.Name

ActiveDocument.MailMerge.OpenDataSource Name:= _
strBook, _
ConfirmConversions:=False, _
ReadOnly:=False, _
LinkToSource:=True, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Revert:=False, _
Format:=wdOpenFormatAuto, _
Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=strBook;Mode=Read;Extended                       Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry       Path="""";Jet OLEDB:Engine Type=37;Jet OLEDB:D", _
SQLStatement:="SELECT * FROM `Merge$`", _
SQLStatement1:="", SubType:= _
wdMergeSubTypeAccess

MsgBox "Current Datasource -   " + strDataSource

End Sub

Answer 1

失败是因为 Word 在执行 Document_Open 之前尝试连接到现有数据源。然而，究竟发生了什么以及您看到了什么至少取决于以下几点:

1. 文档中存储的数据源信息是否仍然有效(即原始 .xlsm 是否仍然存在，例如是正确的工作表名称仍在其中)
2. 您是手动打开 Word 文档还是通过 OLE自动化
3. SQLSecurityCheck 注册表设置是否描述here是处于默认状态(即不存在或设置为 1)，或设置为 0
4. 对于 OLE 自动化，Word Applicaiotn 对象的DisplayAlerts 属性设置为 wdAlertsAll 或 wdAlertsNone

粗略地说...

如果 Word 尝试查找的数据源仍然存在，在除一种情况外的所有情况下，只要用户对他们看到的任何安全提示回答"is"，Word 就会建立连接。异常(exception)情况是，如果 SQLSecurityCheck 不存在或设置为 1(即默认值)，则通过 OLE Automation 打开文档，并且 DisplayAlerts 设置为 wdAlertsNone，则不显示对话框并且不打开数据源。

如果 Word 尝试查找的数据源不存在(例如已被移动)，除一种情况外，在所有情况下用户都会看到一个错误对话框。如果他们对该对话框的响应是识别有效的数据源，则该文档将具有新的数据源。同样，当 SQLSecurityCheck 为默认值时异常(exception)，文档通过 OLE 打开，并且 DisplayAlerts 设置为 wdAlertsNone。在这种情况下，不会显示任何对话框，也不会打开数据源。

开发人员面临的一个问题是，如果 SQLSecurityCheck 值已更改为 0(通常是为了让用户不必一直回答安全检查问题)，他们无法避免在数据源不存在时弹出用户对话框。

但是，只要用户能够看到并响应 Word 在连接到数据源时显示的任何对话框，用户将最终 (a) 打开带有数据源的文档，或者(b) 一个没有附加数据源的打开文档(或者可以说，一些其他困惑，例如用户试图结束 Word 进程或类似的)。如果发生这两种情况中的任何一种，则应该运行 Document_Open 代码，并且 Word 应该最终连接到您想要的数据源。 (虽然在某些情况下，尝试连接到现有数据源(例如文本文件)时可能会使用其他方法连接到 Word 可能会导致错误。)

顺便说一下，

• 对于与 Excel 工作簿的 OLE DB 连接，您应该能够省略 OpenDataSOurce 调用中的所有参数，除了 Name 和SQL语句。
• AFAICS 目前您的代码将始终报告现有数据源(如果当时 Word 尚未将其删除)Document_Open 执行。您需要将作业移至在 OpenDataSource 调用下方的 strDataSource 显示新名称。但也许我没捕获要点!