自动邮件合并

Question

我需要使用Access数据库表中的文本动态生成word文档。这里的警告是，来自数据库的一些文本需要修改为Mergefields。我目前使用Interop.Word（VBA宏）和VB.NET生成文档。

到目前为止，我的步骤是这样的：

1. 拉标准.docx模板
2. 使用表中预定义的填充文本填充模板
3. 通过用实际的MergeFields替换填充器文本来添加MergeFields
4. 附加数据源并执行邮件合并

添加VBA标签，因为我正在寻找一个“VBA”风格的答案（Word Interop）。

Answer 1

你漏掉了很多细节，所以我将用一些笼统的术语来回答这个问题。

你想做的事情肯定是可以实现的。两种可能的解决方案立即浮现在脑海中：

1. 使用查找
替换范围
2. 使用typetext
插入令牌

Sub FindInsertMerge()
    Dim rng As Range
    Set rng = ActiveDocument.Range

    With rng.Find
        .Text = "(\@*\@)"
        .MatchWildcards = True
        .Execute

        If .Found Then
            ActiveDocument.MailMerge.Fields.Add rng, Mid(rng.Text, 2, Len(rng.Text) - 2)
        End If
    End With
End Sub

Private Sub InsertMergeText(rng As Range, txt As String)
    Dim i As Integer
    Dim t As String
    Dim tokens() As String

    tokens = Split(txt, " ")
    rng.Select

    For i = 0 To UBound(tokens)
        t = tokens(i)

        If Left(t, 1) = "@" And Right(t, 1) = "@" Then
            'Insert field if it's a mail merge label.
            ActiveDocument.MailMerge.Fields.Add Selection.Range, Mid(t, 2, Len(t) - 2)
        Else
            'Simply insert text.
            Selection.TypeText t
        End If

        'Insert the whitespace we replaced earlier.
        If i < UBound(tokens) Then Selection.TypeText " "
    Next
End Sub

InsertMergeText Selection.Range, "After @INACTIVE_DATE@ your account will no longer be active which will be in the database text."