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

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

printable version:
ByteScout-PDF-Suite-VBScript-Extract-images-from-pdf-with-pdf-extractor-sdk.pdf

How to extract images from pdf with pdf extractor sdk in VBScript with ByteScout PDF Suite

Learn to extract images 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 set that includes 6 SDK products 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 be applied to extract images from pdf with pdf extractor sdk using VBScript.

Want to quickly learn? This fast application programming interfaces of ByteScout PDF Suite for VBScript plus the guidelines and the code below will help you quickly learn how to extract images from pdf with pdf extractor sdk. Just copy and paste the code into your VBScript application’s code and follow the instructions. Use of ByteScout PDF Suite in VBScript is also described in the documentation included along with the product.

Our website gives trial version of ByteScout PDF 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)

ExtractAllImages.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")

i = 0

' Initialize image enumeration
If extractor.GetFirstImage() Then
    Do
        outputFileName = "image" & i & ".png"
        ' Save image to file
        extractor.SaveCurrentImageToFile outputFileName
        i = i + 1
    Loop While extractor.GetNextImage() ' Advance image enumeration
End If

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

Set extractor = Nothing