Tüm form üyesi arkadaşlara iyi akşamlar dilerim. Eklediğim örnek VT de Form1 içine yerleştirilen Web tarayıcısı denetiminde görüntülenen PDF belgesinin içeriğindeki metin alanlarını mausla  yada Ctl A ile tümünü seçip (Örnek1 Resim)  Ctl C ile kopyalayıp Ctl V ilede yandaki metin kutusuna yapıştıma işlemini (Örnek2 Resim) manuel olarak yapabiliniyor. Bu ardaşık işlemi alta bulunan Kopyala Yapıştır butonuna yazılacak vb koduyla nasıl yapabiliriz. Bir kaç basit yöntem denemeye çalıştım ama yapamadım. Yardımlarınız için şimdiden teşekkür eder saygılarımı sunarım. İyi akşamlar.

Merhaba
Öncelikle pdf den doğrudan accese veri almanız mümkün değildir. 
Pdf dosyanızı önce metin belgesi(txt), excel(xls) gibi dönüştürüp daha sonrasında access tablolarına aktarabilirsiniz.
Access aracılığı ile dönüştürme mümkün tabi Adobe api leri kullanmak gerekecek (referance) 

Örnek bir kod gösterecek olurcam




Ancak bu kod adobe'dan ücretsiz bir sw olan Adobe Reader ile değil, pdf dosyaları oluşturabileceğiniz ve görüntüleyebileceğiniz Acrobat Reader'ınız olduğunda çalışır.

(22-02-2022, 20:04)lemoncher2 demiş ki: Merhaba
Öncelikle pdf den doğrudan accese veri almanız mümkün değildir. 
Pdf dosyanızı önce metin belgesi(txt), excel(xls) gibi dönüştürüp daha sonrasında access tablolarına aktarabilirsiniz.
Access aracılığı ile dönüştürme mümkün tabi Adobe api leri kullanmak gerekecek (referance) 

Örnek bir kod gösterecek olurcam

Visual Basic

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 = "PDF DOSYASININ YOLU.pdf"
NewFileName = "TXT DOSYASININ YOLU.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

Ancak bu kod adobe'dan ücretsiz bir sw olan Adobe Reader ile değil, pdf dosyaları oluşturabileceğiniz ve görüntüleyebileceğiniz Acrobat Reader'ınız olduğunda çalışır.

merhaba hocam. bu kodu küçük bir örnek ile destekleme şansınız olurmu?