The sample shows steps and algorithm of how to extract images by page from PDF and how to make it work in your VBScript application. ByteScout PDF Extractor SDK can extract images by page from PDF. It can be used from VBScript. ByteScout PDF Extractor SDK is the Software Development Kit (SDK) that is designed to help developers with data extraction from unstructured documents like pdf, tiff, scans, images, scanned and electronic forms. The library is powered by OCR, computer vision and AI to provide unique functionality like table detection, automatic table structure extraction, data restoration, data restructuring and reconstruction. Supports PDF, TIFF, PNG, JPG images as input and can output CSV, XML, JSON formatted data. Includes full set of utilities like pdf splitter, pdf merger, searchable pdf maker.
The SDK samples like this one below explain how to quickly make your application do extract images by page from PDF in VBScript with the help of ByteScout PDF Extractor SDK. This VBScript sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Detailed tutorials and documentation are available along with installed ByteScout PDF Extractor SDK if you’d like to dive deeper into the topic and the details of the API.
ByteScout free trial version is available for download from our website. It includes all these programming tutorials along with source code samples.
' 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