Word’de Köprü Olarak Eklenen PDF Dosyasının İstenilen Sayfasının Açtırılması

ilmtrz

Altın Üye
Katılım
27 Aralık 2012
Mesajlar
244
Excel Vers. ve Dili
excel 2013
AutoOpen makrosunu da lave etmeniz gerekir
İyi akşamlar Haluk bey, öneriniz doğrultusunda makroya gerekli ilaveleri yaptım. Örnek dosya ektedir.

Kod:
Sub AutoOpen()
    Options.ButtonFieldClicks = 1
End Sub

Sub Test()
    myPDF = ActiveDocument.Path & "\Test-Eki.pdf"
    myAdobeReader = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    pageNum = 3
    Shell myAdobeReader & " /A ""page=" & pageNum & """ " & myPDF, vbNormalFocus
End Sub
Ekte yer alan dosyada "Test" adlı Word belgesi ile bu belgenin ekini oluşturan "Test-Eki" adlı PDF dosyası mevcut. Buna göre yukarıdaki myPDF = ActiveDocument.Path & "\Test-Eki.pdf" kod satırındaki "Test" yerine ActiveDocument.Name komutunu yazmak istedim ancak makro çalışmadı.

Kod:
myPDF = ActiveDocument.Path & "\" & ActiveDocument.Name & "-Eki.pdf"
Bu kod satırında nerede hata yapıyorum acaba.
 

Ekli dosyalar

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Kod:
Sub Test()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    docName = FSO.GetBaseName(ThisDocument.Name)
    
    myPDF = ThisDocument.Path & Application.PathSeparator & docName & "-Eki.pdf"
    myAdobeReader = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    pageNum = 6
    Shell myAdobeReader & " /A ""page=" & pageNum & """ " & myPDF, vbNormalFocus
End Sub

.
 

ilmtrz

Altın Üye
Katılım
27 Aralık 2012
Mesajlar
244
Excel Vers. ve Dili
excel 2013
Kod:
Sub Test()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    docName = FSO.GetBaseName(ThisDocument.Name)
   
    myPDF = ThisDocument.Path & Application.PathSeparator & docName & "-Eki.pdf"
    myAdobeReader = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    pageNum = 6
    Shell myAdobeReader & " /A ""page=" & pageNum & """ " & myPDF, vbNormalFocus
End Sub

.
Çok teşekkür ederim Haluk bey. Makro çok iyi çalıştı. Emeğinize sağlık.
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,519
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Ilave bilgi:

Tek tiklama yapinca PDF dokumaninin acilmasini istiyorsaniz, onun icin yukarida 11 No'lu mesajin ekindeki dosyada verdigim AutoOpen makrosunu da lave etmeniz gerekir.


.
Sayın Haluk,
Üstadım Word' te "AutoOpen" makrosu nereye kaydedilecek? Daha önce bu makroyu hiç kullanmadım.
Teşekkürler.
 

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,519
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Sağ olun, var olun.
 
Üst