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

   Dim pageToExtract : pageToExtract=2

   Dim DC : Set DC = CreateObject("Neevia.docConverter")

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

   Set DC = Nothing

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