PDF-XChange Community Forum - Support for our products - PDF XChange Editor, PDF XChange Tools, PDF XChange Standard, PDF XChange PRO
https://forum.pdf-xchange.com/
Code: Select all
Dim nID As Integer = pxvInst.Str2ID("op.document.exportCommentsAndFields")
Dim pOp As PDFXEdit.IOperation = pxvInst.CreateOp(nID)
Dim input As PDFXEdit.ICabNode = pOp.Params.Root("Input")
input.v = Me.docPreview.Doc
Dim fsInst As PDFXEdit.IAFS_Inst = DirectCast(Me.docPreview.Inst.GetExtension("AFS"), PDFXEdit.IAFS_Inst)
Dim destPath As PDFXEdit.IAFS_Name = fsInst.DefaultFileSys.StringToName(MISData.Instance.DocShareName & "\Annotations\" & annotationFileOID.ToString & ".fdf")
Dim output As PDFXEdit.ICabNode = pOp.Params.Root("Output")
output.v = destPath
Dim options As PDFXEdit.ICabNode = pOp.Params.Root("Options")
options("ExportAnnots").v = True
options("ExportFields").v = True
options("DestFile").v = destPath
pOp.Do()
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
