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
Extract Text By Pages from PDF | VBScript
ExtractTextByPages.vbs:
VB
' 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