ByteScout Data Extraction Suite – VBScript – Extract images by page from pdf with pdf extractor sdk

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

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

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

This code in VBScript shows how to extract images by page from pdf with pdf extractor sdk with this how to tutorial

The documentation is designed for a specific purpose to help you to apply the features on your side. ByteScout Data Extraction Suite can extract images by page from pdf with pdf extractor sdk. It can be applied from VBScript. ByteScout Data Extraction Suite is the set that includes 3 SDK products for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK.

The following code snippet for ByteScout Data Extraction Suite works best when you need to quickly extract images by page from pdf with pdf extractor sdk in your VBScript application. Follow the instructions from scratch to work and copy the VBScript code. Further improvement of the code will make it more robust.

ByteScout provides the free trial version of ByteScout Data Extraction Suite along with the 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)

ExtractImagesByPages.vbs

      ' Create Bytescout.PDFExtractor.ImageExtractor object
Set extractor = CreateObject("Bytescout.PDFExtractor.ImageExtractor")
extractor.RegistrationName = "demo"
extractor.RegistrationKey = "demo"

' Load sample PDF document
extractor.LoadDocumentFromFile("..\..\sample1.pdf")

' Get page count
pageCount = extractor.GetPageCount()
        
' Extract images from each page
For i = 0 To pageCount - 1
    j = 0
    ' Initialize page images enumeration
    If extractor.GetFirstPageImage(i) Then
        Do
            outputFileName = "page" & i & "image" & j & ".png"
            ' Save image to file
            extractor.SaveCurrentImageToFile outputFileName
            j = j + 1
        Loop While extractor.GetNextImage() ' Advance image enumeration
    End If
Next

' Open first output file in default associated application
Set shell = CreateObject("WScript.Shell")
shell.Run "page0image0.png", 1, false
Set shell = Nothing

Set extractor = Nothing