0

我在数据库中有一个字段，以:结尾。我的想法是使用 { INCLUDEPICTURE "pathname{MERGEFIELD f1}.jpg"，之前将图像的名称存储在具有字段值名称的文件夹中。但是，我无法命名包含:字符的文件，并且我想在 ms 字中 OpenDatasource 函数内部的查询中使用 replace 函数，但它显然不起作用。

代码如下：

Private Sub Document_Open()
    Dim strConnection As String
    With Me.MailMerge
        .MainDocumentType = wdFormLetters
        .OpenDataSource _
           Name:="E:\jobDB.mdb", _
           LinkToSource:=True, AddToRecentFiles:=False, ConfirmConversions:=True, _
           Connection:="TABLE t1", SQLStatement:="SELECT t1.name, replace(t1.f1, """:""", """") as repFld FROM t1;"
    End With
End Sub

Private Sub Document_Close()
   If Me.MailMerge.State = wdMainAndDataSource Then _
      Me.MailMerge.MainDocumentType = wdNotAMergeDocument
End Sub

这样做，我希望删除:并使 INCLUDETEXT 工作，但这不起作用，当代码执行时，会显示一个对话框让我选择数据库的表。

我不知道是否有问题，或者是否有其他方法可以实现这一点，或者是否有任何字段或标记或标志来替换合并字段中的字符。

我只想使用 VBA 连接到数据源，但我想为此使用 mailmerge，因为我研究了它是如何工作的，我可以用条件字段做我想做的事情，否则我将不得不使用 VBA 和表单字段。

4

0 回答 0