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
İyi akşamlar Haluk bey, öneriniz doğrultusunda makroya gerekli ilaveleri yaptım. Örnek dosya ektedir.AutoOpen makrosunu da lave etmeniz gerekir
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
Kod:
myPDF = ActiveDocument.Path & "\" & ActiveDocument.Name & "-Eki.pdf"
Ekli dosyalar
-
589.2 KB Görüntüleme: 4