ByteScout Data Extraction Suite – VBScript – Extract text by pages from pdf with pdf extractor sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VBScript – Extract text by pages from pdf with pdf extractor sdk

printable version:
ByteScout-Data-Extraction-Suite-VBScript-Extract-text-by-pages-from-pdf-with-pdf-extractor-sdk.pdf

How to extract text by pages from pdf with pdf extractor sdk in VBScript and ByteScout Data Extraction Suite

If you want to learn more then this tutorial will show how to extract text by pages from pdf with pdf extractor sdk in VBScript

These source code samples are assembled by their programming language and functions they apply. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can extract text by pages from pdf with pdf extractor sdk in VBScript.

These VBScript code samples for VBScript guide developers to speed up coding of the application when using ByteScout Data Extraction Suite. 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. Check VBScript sample code samples to see if they respond to your needs and requirements for the project.

Our website gives trial version of ByteScout Data Extraction Suite for free. It also includes documentation and source code samples.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

ExtractTextByPages.vbs

      ' 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