Aspose 升级 - 缺少属性

Question

我们正在尝试升级 Aspose，发现新版本中缺少 Aspose.Words.Document.MailMerge.MergeField 和 MergeFieldEventArgs。

有人可以帮我替换这个属性/方法吗？

Dim doc As Document = New Aspose.Words.Document(fileName)
AddHandler doc.MailMerge.MergeField, AddressOf HandleMergeField


Public Sub HandleMergeField(ByVal sender As Object, ByVal e As MergeFieldEventArgs)
    'Do something
End Sub

Answer 1

Aspose.Words.MailMerging 命名空间包含邮件合并报告引擎的类。请从您的应用程序中删除旧的邮件合并命名空间并添加 Aspose.Words.MailMerging 命名空间。您需要实现 IFieldMergingCallback 接口来满足您的要求。请检查以下代码示例。

Public Sub MailMergeInsertHtml()
    Dim doc As New Document(MyDir & "MailMerge.doc")

    ' Add a handler for the MergeField event.
    doc.MailMerge.FieldMergingCallback = New HandleMergeField()


    ' Execute mail merge.
    doc.MailMerge.Execute(New String() { "fieldname" }, New String() { "field value" })

    ' Save resulting document with a new name.
    doc.Save(MyDir & "MailMergeOut.doc")
End Sub

Private Class HandleMergeField
    Implements IFieldMergingCallback
    ''' <summary>
    ''' This is called when merge field is actually merged with data in the document.
    ''' </summary>
    Private Sub IFieldMergingCallback_FieldMerging(ByVal e As FieldMergingArgs) Implements IFieldMergingCallback.FieldMerging
         '' Your code
    End Sub

    Private Sub ImageFieldMerging(ByVal e As ImageFieldMergingArgs) Implements IFieldMergingCallback.ImageFieldMerging
        ' Do nothing.
    End Sub
End Class

我与 Aspose 合作，担任开发人员传道者。