Code: Select all
Public Sub importComments(ByVal annotationFileOID As String)
Dim nIDImport As Integer = pxvInst.Str2ID("op.document.importCommentsAndFields", False)
Dim opImport As PDFXEdit.IOperation = pxvInst.CreateOp(nIDImport)
Dim inputImport As PDFXEdit.ICabNode = opImport.Params.Root("Input")
inputImport.v = Me.docPreview.Doc
Dim optionsImport As PDFXEdit.ICabNode = opImport.Params.Root("Options")
optionsImport("FileName").v = MISData.Instance.DocShareName & "\Annotations\" & annotationFileOID & ".fdf"
opImport.Do()
End Sub
Thanks
Simon