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
245
Excel Vers. ve Dili
Excel 2019
Altın Üyelik Bitiş Tarihi
05-10-2025
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
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
245
Excel Vers. ve Dili
Excel 2019
Altın Üyelik Bitiş Tarihi
05-10-2025
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,552
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
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.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,552
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
Altın Üyelik Bitiş Tarihi
29-05-2025
Sağ olun, var olun.
 
Üst