ByteScout Data Extraction Suite – Microsoft Excel – Extract Text From Coordinates from PDF with PDF Extractor SDK

Home
/
Articles
/
ByteScout Data Extraction Suite – Microsoft Excel – Extract Text From Coordinates from PDF with PDF Extractor SDK

printable version:
ByteScout-Data-Extraction-Suite-Microsoft-Excel-Extract-Text-From-Coordinates-from-PDF-with-PDF-Extractor-SDK.pdf

How to extract text from coordinates from PDF with PDF extractor SDK in Microsoft Excel using ByteScout Data Extraction Suite

This code in Microsoft Excel shows how to extract text from coordinates from PDF with PDF extractor SDK with this how to tutorial

Sample source code below will display you how to manage a complex task like extract text from coordinates from PDF with PDF extractor SDK in Microsoft Excel. ByteScout Data Extraction Suite is the set that includes 3 SDK products for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can be applied to extract text from coordinates from PDF with PDF extractor SDK using Microsoft Excel.

The SDK samples given below describe how to quickly make your application do extract text from coordinates from PDF with PDF extractor SDK in Microsoft Excel with the help of ByteScout Data Extraction Suite. Just copy and paste the code into your Microsoft Excel application’s code and follow the instructions. If you want to use these Microsoft Excel sample examples in one or many applications then they can be used easily.

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

ExtractTextFromPDF_VBA.txt

      ' IMPORTANT: This demo uses VBA so if you have it disabled please temporary enable
' by going to Tools - Macro - Security.. and changing the security mode to ""Medium""
' to Ask if you want enable macro or not. Then close and reopen this Excel document

' You should have evaluation version of the ByteScout SDK installed to get it working - get it from https://bytescout.com

' If you are getting error message like
' "File or assembly named Bytescout SDK, or one of its dependencies, was not found"
' then please try the following:
'
' - Close Excel
' - (for Office 2003 only) download and install this hotfix from Microsoft:
' http://www.microsoft.com/downloads/details.aspx?FamilyId=1B0BFB35-C252-43CC-8A2A-6A64D6AC4670&displaylang=en
'
' and then try again!
'
' If you have any questions please contact us at https://bytescout.com/support/ or at support@bytescout.com
                            

'==============================================
'References used
'=================
'Bytescout PDF Extractor SDK
'
' IMPORTANT:
' ==============================================================
'1) Add the ActiveX reference in Tools -> References
'
'==================================================================


Private Sub CommandButton1_Click()

' Create TextExtractor object
' Set extractor = CreateObject("Bytescout.PDFExtractor.TextExtractor")
Dim extractor As New Bytescout_PDFExtractor.TextExtractor

extractor.RegistrationName = "demo"
extractor.RegistrationKey = "demo"

' Load sample PDF document
extractor.LoadDocumentFromFile ("c:\sample1.pdf")

' Get page count
pageCount = extractor.GetPageCount()

Dim wb As Workbook
Dim ws As Worksheet
Dim TxtRng  As Range

Set wb = ActiveWorkbook
Set ws = wb.Sheets("Sheet1")

For i = 0 To pageCount - 1
            RectLeft = 10
            RectTop = 10
            RectWidth = 100
            RectHeight = 100

            ' check the same text is extracted from returned coordinates
            extractor.SetExtractionArea RectLeft, RectTop, RectWidth, RectHeight
            ' extract text from given area
            extractedText = extractor.GetTextFromPage(i)
                    
            ' insert rows
            ' Rows(1).Insert shift:=xlShiftDown
            ' write cell value
             Set TxtRng = ws.Range("A" & CStr(i + 2))
             TxtRng.Value = extractedText
    
Next

Set extractor = Nothing


End Sub