รบกวนขอ คำแนะนำหรือ code vba ที่ใช้ดึงตัวอักษรจาก file acrobat มาวางที่ excel ครับ

[akekorn]

สวัสดีครับเพื่อนสมาชิกทุกท่าน
ผมขอความอนุเคราะห์หรือแนะนำ ในการนำข้อความใน file acrobat pdf มาวางเป็น text file หรือ excel file ก้อได้ครับ
ว่าจะทำอย่างไรได้บ้างที่ไม่ใช่ copy ใน clipboard แล้ว paste เพราะ ไม่ตอบโจทย์และมีโอกาสไม่ถูกสูง
ขอคำแนะนำด้วยครับ หรือหากทานใดจะ อนุเคราะห์ source code vba ที่ใช้มาแล้วได้ผล จะขอบพระคุณมากๆครับผม

[akekorn]

พอดีผมลองใช้ code ตัวนี้ แต่ขึ้น error

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

แต่มันขึ้น error

[akekorn]

รบกวนขอคำแนะนำด้วยครับ

[snasui]

แนบไฟล์ตัวอย่างทั้งหมดสำหรับมาด้วยจะได้ช่วยทดสอบได้ครับ

[akekorn]

รบกวนด้วยครับผม
ขอบคุณครับ

[akekorn]

excel file ครับ

[snasui]

เข้า VBE > Tools > References > สังเกตว่าติด Missing ตามภาพหรือไม่ครับ สำหรับเครื่องผมไม่ได้ลง Acrobat จะติด Error เครื่องที่ไม่มี Acrobat จะไม่สามารถช่วยทดสอบให้ได้ครับ

[puriwutpokin]

ลองรันดูอีกทีด้วยโค้ดเดิม คัดลอกจากนี้ไปดูครับ

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