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作为Developer evangelist。