Form1.frm
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | VERSION 5.00 Begin VB.Form Form1 Caption = "PDF to CSV" ClientHeight = 1095 ClientLeft = 120 ClientTop = 465 ClientWidth = 3675 LinkTopic = "Form1" ScaleHeight = 1095 ScaleWidth = 3675 StartUpPosition = 3 'Windows Default Begin VB.CommandButton cmd_pdf_to_csv Caption = "Convert PDF to CSV" Height = 855 Left = 120 TabIndex = 0 Top = 120 Width = 3495 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cmd_pdf_to_csv_Click() ' Hanlde Error On Error GoTo ErrorHandler: ' Create Bytescout.PDFExtractor.CSVExtractor object Set extractor = CreateObject( "Bytescout.PDFExtractor.CSVExtractor" ) ' Set Registration name and key extractor.RegistrationName = "demo" extractor.RegistrationKey = "demo" ' Load sample PDF document extractor.LoadDocumentFromFile "sample.pdf" ' Peform Save to CSV file extractor.SaveCSVToFile "output.csv" ' Show Success Message MsgBox "Extracted data saved to 'output.csv' file." , vbInformation, "Success" ' Close form Unload Me ErrorHandler: If Err.Number <> 0 Then MsgBox Err.Description, vbInformation, "Error" End If End Sub |
Click here to get your Free Trial version of the SDK
also available as: