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

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

printable version:
ByteScout-PDF-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 PDF Suite

Learn to extract images by page from pdf with pdf extractor sdk in VBScript

We made thousands of pre-made source code pieces for easy implementation in your own programming projects. ByteScout PDF Suite is the bundle that provides six different SDK libraries to work with PDF from generating rich PDF reports to extracting data from PDF documents and converting them to HTML. This bundle includes PDF (Generator) SDK, PDF Renderer SDK, PDF Extractor SDK, PDF to HTML SDK, PDF Viewer SDK and PDF Generator SDK for Javascript. It can extract images by page from pdf with pdf extractor sdk in VBScript.

This prolific sample source code in VBScript for ByteScout PDF Suite contains various functions and other necessary options you should do calling the API to extract images by page from pdf with pdf extractor sdk. Simply copy and paste in your VBScript project or application you and then run your app! This basic programming language sample code for VBScript will do the whole work for you to extract images by page from pdf with pdf extractor sdk.

You can download free trial version of ByteScout PDF Suite from our website to see and try many others source code samples for VBScript.

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