çift Tıkla Komutu ile Resim Aratma pdf den

[masue]

Merhabalar değerli arkadaşlar;

elimdeki mevcut kodlarla excelden ilgili kod a çift tıklama yaptığımda ilgili klasörden jpg ya da png dosyasını açabiliyorum.revize etmek istediğim çift tıklayıp ilgili katalog pdf inde aratma yapıp bulabilmek.bu mümkün müdür arkadaşlar.

kısaca çift tıkla ilgili pdf de kodu ara bul.
şimdiden ilginize teşekkür ederim.

mevcut kodlarım şunlar

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 9 Then
If Dir("C:\Users\Erdal\Desktop\resim\" & Target & ".jpg") <> "" Then
Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
Shex.Open ("C:\Users\Erdal\Desktop\resim\" & Target & ".jpg")
End If
End If
End Sub

 

[masue]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 9 Or 10 Then
If Dir("C:\Users\Erdal\Desktop\katalog\") <> "" Then
Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
Shex.Open ("C:\Users\Erdal\Desktop\katalog\")
End If
End If
End Sub

çift tıkla klasörü bu komutla açtım.ekleme yapılması gereken pdf dosyasını da açıp tıklanan kodu içinde aratabilmek (ctrl+f)

örnek klasörümü ekliyorum.şimdiden teşekkürler.

http://dosya.co/t5k1l86pg5rr/Desktop.rar.html

 

[askm]

Pdf evrağı 2013 öncesi sürümlerde officelerde açılmıyor. Açılsa bile pdf evrak içerisinde resim bulabilme imkanınız olur mu? Sanmıyorum. Sonuçta resim belgeye sizin yazdığınız isimle eklenmiyor. Kendi image şeklinde ekleyecektir. Tüm resimleri bulabilirsiniz belki ama bunun içerisinde logolar vb. olacaktır.

 

[masue]

Merhaba hocam office 2016.aslında pdf de resim aramıyorum sadece resmin kodununu aratmak istiyorum.pdf dosyasını açmak,sonrasında excelde tıkladığım metin yani kodu aratmak.normalde pdf de ctrl+f ile kodu arattığımda buluyorum.

RESİM KLASÖRÜ FELAN YAZMIŞIM SANIRIM O BİRAZ KAFA KARIŞIKLIĞI YARATMIŞ KUSURA BAKMAYIN

 

[masue]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 9 Or 10 Then
If Dir("C:\Users\Erdal\Desktop\katalog\") <> "" Then
Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
Shex.Open ("C:\Users\Erdal\Desktop\katalog\")
pdf = "C:\Users\Erdal\Desktop\katalog\ayg.pdf"

'open the pdf file
ActiveWorkbook.FollowHyperlink pdf
End If
End If
End Sub

son halde pdf e erişebiliyorum fakat excelde çift tıkladığım hücreyi ctrl+f ekranında aratmak istiyorum.1 adım kaldı sanırım.yardımcı olacak bir arkadaş.yardım lütfen

 

[masue]

Yardımcı olabilecek bir arkadaş arıyorum.

 

[masue]

hala yardımıcı olabilecek bir arkadaş arıyorum!

 

[Zeki Gürsoy]

PDF'i Text'e çevirecek programa ihtiyacınız var. Bu programı cüzi ücret karşılığı ben verebilirim.

.

 

[masue]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 9 Or 10 Then
If Dir("C:\Users\Erdal\Desktop\katalog\") <> "" Then
Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
Shex.Open ("C:\Users\Erdal\Desktop\katalog\")
pdf = "C:\Users\Erdal\Desktop\katalog\ayg.pdf"

'open the pdf file
ActiveWorkbook.FollowHyperlink pdf
End If
End If
End Sub

hocam programım full zaten ocr yapıyorum arama da yapıyor.onda sıkıntı yok.ben otomatik ctrl+F arama ekranına kadar getirebilmek excelde tıkladığım hücreyi.amacım sadece excelde tıkladığım hücreyi pdf de arama ekranına kadar getirebilmek.yukarıdaki mevcut kodlarla pdf ekranına kadar erişebiliyorum.

 

[leumruk]

Selamlar,
Makro ile PDF üzerinde bir takım işlemler yapılabiliyor. Ama bunun sınırları nedir bilemiyorum. İncelemeye değer bir konu. Müsait bir vakit bulduğumda PDF makroları ile neler yapılabileceğini araştıracağım.
Sizin isteğinizle ilgili yabancı bir sitede bulduğum makrolarda düzenleme yaptım. Aranan metni buluyor ve uyarı veriyor.
Metni ve PDF dosya yolunu kendinize göre düzenleyiniz.

 Sub FindTextInPDF()
    Dim TextToFind  As String
    Dim PDFPath     As String
    Dim App         As Object
    Dim AVDoc       As Object
    TextToFind = "Bu kılavuz" 'Aranan metini yazınız.
    PDFPath = ThisWorkbook.Path & "\2017_2018_DYK.pdf" 'Dosya yolunu yazınız.

    If Dir(PDFPath) = "" Then
        MsgBox "Dosya bulunamadı.", vbCritical, "Dosya hatası"
        Exit Sub
    End If

    On Error Resume Next

    Set App = CreateObject("AcroExch.App")
    If Err.Number <> 0 Then
        MsgBox "Bilgisayarınızda Adobe nesnesi bulunmamaktadır.", vbCritical, "Nesne Hatası"
        Set App = Nothing
        Exit Sub
    End If

    Set AVDoc = CreateObject("AcroExch.AVDoc")
    If Err.Number <> 0 Then
        MsgBox "Adobe nesnesi oluşturulamadı!", vbCritical, "Object Error"
        Set AVDoc = Nothing
        Set App = Nothing
        Exit Sub
    End If
    On Error GoTo 0

    If AVDoc.Open(PDFPath, "") = True Then
        AVDoc.BringToFront
        If AVDoc.FindText(TextToFind, True, True, False) = False Then
            AVDoc.Close True
            App.Exit
            Set AVDoc = Nothing
            Set App = Nothing

            MsgBox "Aradığınız metin dosya içinde bulunamadı.", vbInformation, "Arama Sonucu"
            Else:
            MsgBox "Aranan metin bu dosyada mevcut.", vbInformation, "Arama Sonucu"
        End If
    Else
        App.Exit
        Set AVDoc = Nothing
        Set App = Nothing
        MsgBox "PDF dosyası açılamadı!", vbCritical, "Dosya Hatası"
    End If
End Sub

 

[masue]

vay hocam teşekkür ederim.kodları inceleyeceğim.ilgi ve alakan için saol.hocam dediğim gibi çifttıkla komutuyla pdfi açmaya kadar geldim.sadece pdf arama ekranı açmak için bir ek kod gerekiyor sanırım.gönderdiğin kodu inceleyeceğim.

 

[masue]

sub findtextınpdf()
dim texttofind as string
dim pdfpath as string
dim app as object
dim avdoc as object
texttofind = "bu kılavuz" 'aranan metini yazınız. BU BÖLGEDEKİ KOMUTUN ÇİFT TIKLA KOMUTU İLE HÜCRE İÇİNDEKİ VERİYİ ARATMASI LAZIM.
Pdfpath = thisworkbook.path & "\2017_2018_dyk.pdf" 'dosya yolunu yazınız.

ıf dir(pdfpath) = "" then
msgbox "dosya bulunamadı.", vbcritical, "dosya hatası"
exit sub
end ıf

on error resume next

set app = createobject("acroexch.app")
ıf err.number <> 0 then
msgbox "bilgisayarınızda adobe nesnesi bulunmamaktadır.", vbcritical, "nesne hatası"
set app = nothing
exit sub
end ıf

set avdoc = createobject("acroexch.avdoc")
ıf err.number <> 0 then
msgbox "adobe nesnesi oluşturulamadı!", vbcritical, "object error"
set avdoc = nothing
set app = nothing
exit sub
end ıf
on error goto 0

ıf avdoc.open(pdfpath, "") = true then
avdoc.bringtofront
ıf avdoc.findtext(texttofind, true, true, false) = false then
avdoc.close true
app.exit
set avdoc = nothing
set app = nothing

msgbox "aradığınız metin dosya içinde bulunamadı.", vbınformation, "arama sonucu"
else:
Msgbox "aranan metin bu dosyada mevcut.", vbınformation, "arama sonucu"
end ıf
else
app.exit
set avdoc = nothing
set app = nothing
msgbox "pdf dosyası açılamadı!", vbcritical, "dosya hatası"
end ıf
end sub

hocam kodları çalıştırdım.fakat aranan metin yani bu klavuz denen yer değişken metin oluyor.benim belirtmiş olduğum kodlarda çift tıkla kodu ile hücredeki veriye tıkladığımda o hücredeki veriyi arasın istiyorum.yani benim kodlarla bu kodlar ın sentezi gibi bişey olması lazım.

 

[masue]

çift tıkla tıklanan hücre için "pdf open" "pdf find" ara komutları

 

[leumruk]

Aranan metni bulduktan sonra herhangi bir işlem gerçekleşecek mi?

 

[leumruk]

Örnek dosyayı inceleyiniz: Tıklayınız...

 

[masue]

Hocam çok teşekkür ederim.elinize emeğinize sağlık.şimdi çalıştırıyorum kodları gönderdiğiniz örnek dosyada,fakat kodları incelediğimde hedef belirttiğim yeri bulamadım.hedef değiştirmek istediğimde nasıl bir işlem yapıcam.

 

[leumruk]

Ne yapmak istediğinizi anlayamadım. Aradığınız verinin konumuna mı gitmek istiyorsunuz?

 

[masue]

mrhblr,verdiğiniz kodlar istediğim gibi çalışmakda.sadece hedef değiştirmek istediğimde ne yapmam gerekiyor.hep aynı pdfe işlem yapıyor.başka bir pdf i hedef yapmak istediğimde ne yapmam gerekiyor.ilginiz için de teşekkür ederim iyi çalışmlar dilerim.

 

[leumruk]

 Pdfpath = thisworkbook.path & "\2017_2018_dyk.pdf" 'dosya yolunu yazınız.

Bu bölüm yerine aşağıdakini yazın:

Pdfpath = "C:\Users\Erdal\Desktop\katalog\ayg.pdf"

 

[masue]

hocam dosya yolunu nereye yazıcam.klasör yolu burası"C:\Users\Erdal\Desktop\katalog\ayg.pdf"