Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
ZUGFeRD Invoice Extraction | VBScript
ExtractEmbeddedFilesFromPDF.vbs:
VB
' Create Bytescout.PDFExtractor.AttachmentExtractor object Set AttachmentExtractor = CreateObject("Bytescout.PDFExtractor.AttachmentExtractor") AttachmentExtractor.RegistrationName = "demo" AttachmentExtractor.RegistrationKey = "demo" ' Load sample PDF document with embedded attachments AttachmentExtractor.LoadDocumentFromFile("ZUGFeRD-invoice.pdf") ' Walk through attachments and save them For i = 0 To AttachmentExtractor.Count - 1 ' Save file to current folder with original name AttachmentExtractor.Save i, AttachmentExtractor.GetFileName(i) Next WScript.Echo "Done! Click OK to open the XML invoice" Set extractor = Nothing