ExtractTextByColumns.vbs
' Create Bytescout.PDFExtractor.TextExtractor object
Set extractor = CreateObject("Bytescout.PDFExtractor.TextExtractor")
extractor.RegistrationName = "demo"
extractor.RegistrationKey = "demo"
' Load sample PDF document
extractor.LoadDocumentFromFile("..\..\columns.pdf")
' Set the column layout mode
extractor.ExtractColumnByColumn = true
' Save extracted text to file
extractor.SaveTextToFile("result.txt")
' Open output file in default associated application
Set shell = CreateObject("WScript.Shell")
shell.Run "result.txt", 1, false
Set shell = Nothing
Set extractor = Nothing
Click here to get your Free Trial version of the SDK
also available as: