converting pdf files to excel using adobe reader vba

[DarkGlobus1OO]

i have a computer with no internet that needs to be able to convert pdf files to excel, all i have is adobe reader, getting adobe proffesional is impossible,
currently i have this code, which works great for opening the pdf file using excel(or any other office application):

Option Explicit


Function OpenPDFPage(PDFPath As String, PageNumber As Long, PageView As Integer)


    'Opens a pdf file, at specific page and with specific view.
    'Sendkeys method is used for simulating keyboard shortcuts.
    'It can be used with both Adobe Reader & Adobe Professional.
    
    'By Christos Samaras
    
    'This line depends on the apllication you are using.
    'For Word
    'ThisDocument.FollowHyperlink PDFPath, NewWindow:=True
    'For Power Point
    'ActivePresentation.FollowHyperlink PDFPath, NewWindow:=True
    'For Excel
    ThisWorkbook.FollowHyperlink PDFPath, NewWindow:=True
    SendKeys ("^+N" & PageNumber & "~^" & PageView), True


End Function


Sub Test()


    OpenPDFPage "C:\Users\Ohad\Desktop\WWWWWWWWsdsd\pdf.pdf", 115, 2
    
    'Page view options:
    '0: Full Page
    '1: Zoom to 100%
    '2: Page Width


End Sub

how do i copy the file content to my worksheet using vba? this is pretty much all i need, but a way to arrange the content in the pdf file to diffrent collums would be much appreciated!

 

[mole999]

reader is just that, a reader of the image created, if you try to export from the latest version, it expects payment, need the distiller portion of the main product

 

[DarkGlobus1OO]

"getting adobe proffesional is impossible",
im using what i have, this is what i have, considering i can do that by a simple drag and copy paste manually makes it pretty logical there could be a way to do it by code, mybe there is,mybe its even possible with vba, dont be so narrow minded

 

[mole999]

"getting adobe proffesional is impossible",
im using what i have, this is what i have, considering i can do that by a simple drag and copy paste manually makes it pretty logical there could be a way to do it by code, mybe there is,mybe its even possible with vba, dont be so narrow minded

Please post the how to when you have spent a good amount of time, figuring it out and making it work. As for your last comment, it's not appreciated .

 

[DarkGlobus1OO]

added this code to the existing one, works like a charm <3


SendKeys "^a", True
SendKeys "^c", True
Application.Wait (Now + TimeValue("0:00:01"))
' Paste into the sheet from cell A1
ActiveWorkbook.ActiveSheet.Paste Cells(1, 1)