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

[ilmtrz]

AutoOpen makrosunu da lave etmeniz gerekir

İyi akşamlar Haluk bey, öneriniz doğrultusunda makroya gerekli ilaveleri yaptım. Örnek dosya ektedir.

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ı.

myPDF = ActiveDocument.Path & "\" & ActiveDocument.Name & "-Eki.pdf"

Bu kod satırında nerede hata yapıyorum acaba.

 

[Haluk]

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]

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]

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]

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

"Test" isimli makronun oldugu module kaydediceksiniz.

.

 

[assenucler]

Sağ olun, var olun.