Snasui Excel Forum

Code: Select all

Sub convertpdf24()
Dim AcroXApp As Acrobat.AcroApp
Dim AcroXAVDoc As Acrobat.AcroAVDoc
Dim AcroXPDDoc As Acrobat.AcroPDDoc
Dim Filename As String
Dim jsObj As Object
Dim NewFileName As String
Filename = "D:\rapid\pyexcel.pdf"
NewFileName = "D:\rapid\file.txt"
Set AcroXApp = CreateObject("AcroExch.App")
'AcroXApp.Show
Set AcroXAVDoc = CreateObject("AcroExch.AVDoc")
AcroXAVDoc.Open Filename, "Acrobat"
Set AcroXPDDoc = AcroXAVDoc.GetPDDoc
Set jsObj = AcroXPDDoc.GetJSObject
jsObj.SaveAs NewFileName, "com.adobe.acrobat.plain-text"
AcroXAVDoc.Close False
AcroXApp.Hide
AcroXApp.Exit
End Sub

Code: Select all

Sub convertpdf2()
                
                Dim AcroXApp As Acrobat.AcroApp
                Dim AcroXAVDoc As Acrobat.AcroAVDoc
                Dim AcroXPDDoc As Acrobat.AcroPDDoc
                Dim Filename As String
                Dim jsObj As Object
                Dim NewFileName As String
                
                Filename = "D:\rapid\pyexcel.pdf"
                NewFileName = "D:\rapid\ake.txt"
                
                Set AcroXApp = CreateObject("AcroExch.App")
                'AcroXApp.Show
                
                Set AcroXAVDoc = CreateObject("AcroExch.AVDoc")
                AcroXAVDoc.Open Filename, "Acrobat"
                
                Set AcroXPDDoc = AcroXAVDoc.GetPDDoc
                
                
                Set jsObj = AcroXPDDoc.GetJSObject
                
                
                jsObj.SaveAs NewFileName, xlTextWindows
                
                
                
                AcroXAVDoc.Close False
                AcroXApp.Hide
                AcroXApp.Exit
                
                End Sub