Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
The following sample demonstrates how to extract text from PDF in Visual Basic 6
VB
Private Sub Form_Load() ' Create Bytescout.PDFExtractor.TextExtractor object Set extractor = CreateObject("Bytescout.PDFExtractor.TextExtractor") extractor.RegistrationName = "demo" extractor.RegistrationKey = "demo" ' Load sample PDF document extractor.LoadDocumentFromFile("..\..\sample2.pdf") ' Get page count pageCount = extractor.GetPageCount() For i = 0 To pageCount - 1 fileName = "page" & i & ".txt" ' Save extracted page text to file extractor.SavePageTextToFile i, fileName Next ' Open first output file in default associated application Set shell = CreateObject("WScript.Shell") shell.Run "page0.txt", 1, false Set shell = Nothing Set extractor = Nothing End Sub