I am searching for this topic and I have found a VBSCript that works fine .. but I need to do that using VBA not VBS
Code: Select all
' Create Bytescout.PDFExtractor.ImageExtractor object
Set extractor = CreateObject("Bytescout.PDFExtractor.ImageExtractor")
extractor.RegistrationName = "demo"
extractor.RegistrationKey = "demo"
' Load sample PDF document
extractor.LoadDocumentFromFile("nn.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
Set shell = CreateObject("WScript.Shell")
The code is taken from this link
https://bytescout.com/products/develope ... d-VBScript+
Thanks advanced for help