Want to save time? You will save a lot of time on writing and testing code as you may just take the VBScript code from ByteScout PDF Suite for extract text by pages from pdf with pdf extractor sdk below and use it in your application. IF you want to implement the functionality, just copy and paste this code for VBScript below into your code editor with your app, compile and run your application. Enjoy writing a code with ready-to-use sample VBScript codes.
Our website gives trial version of ByteScout PDF Suite for free. It also includes documentation and source code samples.
' 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