save pdf file to text or excel file RRS feed

  • Question

  • Hi all,

    I am opening a PDF document from VBA excel. After opening document it should save the document as excel file or text file in one folder.
    I am trying to do this with some code but not able to , pls help me thanks.

    Dim AcroApp As Acrobat.CAcroApp 
    Dim Part1Document As Acrobat.CAcroPDDoc 
    Set Part1Document = CreateObject("AcroExch.PDDoc") 
    Part1Document.Open ("Z:\EG MI Information\MIS\Requests\Req_156\NO.1.pdf") 
    Dim app As Object, avdoc As Object, pageview As Object 
    Set app = CreateObject("AcroExch.App") 
    Set avdoc = app.GetActiveDoc 
    app.MenuItemExecute ("SaveAs") 

    born to code

    Wednesday, April 11, 2012 4:26 PM