1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

  Dim pageToExtract As Integer = 2

  Dim DC As Object : DC = CreateObject("Neevia.docConverter")

  Dim RVal As Integer
  RVal = DC.extractPDFpages("c:\users\public\test.pdf", "c:\users\public\page.pdf", pageToExtract, pageToExtract)

  DC = Nothing

  If RVal=0 Then
    MsgBox("Done !!!")
  Else
    MsgBox("There was an error extracting the page !!!")
  End If