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
İyi akşamlar arkadaşlar. Word'de köprü olarak eklediğim PDF dosyası 400 sayfa. Köprüye tıkladığımda PDF dosyasının ilk sayfası açılıyor ancak ben 301'inci sayfasının açılmasını istiyorum. Biraz araştırdım ama bulamadım. Yardımcı olabilir misiniz?
 

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
789
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝2019 32 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝10 64 Bit 𝙏𝙍⎠
Merhaba,

Ekte bir PDF dosyası hazırladım. içindekilerde konuya basınca ilgili sayfaya yöneliyor bunun mantığını soruyorsunuz sanırım?

İnceleyip dönüş yaparsanız yardımcı olmaya çalışacağım.
Office'in hangi sürümünü kullanıyorsunuz?

iyi çalışmalar.
 

Ekli dosyalar

Son düzenleme:
Katılım
12 Aralık 2015
Mesajlar
1,200
Excel Vers. ve Dili
Türkçe Ofis 2007
Pratik bir yol öneriyim.
C klasörünü açın
Eğer inetpub klasörü mevcut ise
Pdf dosyanızı C:\inetpub\wwwroot a yapıştırın.
Eğer inetpub klasörü mevcut değil ise
Denetim masasını açın
Programlar ve Özellikler'i tıklayın
Sol taraftaki Windows özelliklerini aç veya kapat'ı tıklayın
Çıkan Listede Internet Information Services'i onaylayıp, TAMAM'a tıklayın
C'de inetpub klasörü oluşması gerekiyor.
Pdf dosyanızı C:\inetpub\wwwroot a yapıştırın.
Word dosyanızda oluşturduğunuz Köprü Ekle Sihirbazındaki Adres kısmına
http://localhost/xxxx.pdf#page=301
yazın.
Not : xxx.pdf yerine kendi dosya ismi ile değiştirin.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Yukarıda arkadaşların da belirttiği gibi; PDF dokümanlarına Word belgesi içinde link verilirken belirli bir sayfayı tarif edemezsiniz.

(Not: Bakınız 16 No'lu mesaj ......)

Bu sorunu aşmak için, ben de makrolu bir örnek vereyim ......

Bunun için, netzone nickli arkadaşın 2. mesajının ekindeki örnek-2.pdf dosyasını bilgisayarınızda C:\TestFolder\örnek-2.pdf olarak kaydedin.

Ekli dosyada belirtilen yere çift tıklama yaptığınızda, Internet Explorer ile PDF dosyası; 3. sayfası görünür olacak şekilde açılacaktır.

 

Ekli dosyalar

Son düzenleme:

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
Sayın netzone,
Sayın Haluk,
Sayın alicimri,

Çözüm önerileri sunan, emek ve katkı veren dostlar; hepinize teşekkürler.
 
Katılım
12 Aralık 2015
Mesajlar
1,200
Excel Vers. ve Dili
Türkçe Ofis 2007
Konu biraz kafama takıldı. Aşağıdaki kod daha pratik geldi bana.
Kod:
Sub test()
yol = "D:\xxxx.pdf#page="
sayfa = 1
Shell ("C:\Program Files\Internet Explorer\iexplore.exe " + yol & sayfa)
End Sub
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Konu biraz kafama takıldı. Aşağıdaki kod daha pratik geldi bana.
Ali Bey;

Sizin önerdiğiniz kod benimkiyle aynı zaten. Aradaki fark ise; benim kod soruda istenildiği gibi dokümanın üzerinde bir metne (çift) tıklayınca PDF açılıyor. Sizinki ise müstakil çalışıyor.

.
 
Katılım
12 Aralık 2015
Mesajlar
1,200
Excel Vers. ve Dili
Türkçe Ofis 2007
Kusura bakmayın, Altın Üye olmadığımdan dosyanızı inceleyememiştim. Farklı bir çözüm önerdiğimi sandım.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
"Altın Üye" olmadığınızı fark etmemiştim, şimdi siz söyleyince gördüm ben de .....

.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript

Ekli dosyalar

Son düzenleme:
Katılım
12 Aralık 2015
Mesajlar
1,200
Excel Vers. ve Dili
Türkçe Ofis 2007
Değişken isimlerini de denk düşürebilseymişim..........:)
Sub Test()
myPDF = "file:\\\c:\TestFolder\örnek-2.pdf"
pageNum = 3
Shell ("C:\Program Files\Internet Explorer\iexplore.exe " & myPDF & "#page=" & pageNum)
End Sub
 

ilmtrz

Altın Üye
Katılım
27 Aralık 2012
Mesajlar
244
Excel Vers. ve Dili
excel 2013
Çözüm öneren ve katkı sağlayan üstatlara ben de teşekkür ederim. Anladığım kadarıyla linke tıklandığı zaman PDF dosyası PC'de yüklü olan herhangi bir PDF programında değil de internet tarayıcısında açılabilmektedir. Dosyayı herhangi bir PDF programında açtırmaz mıyız? Bir de bu konuda kafama takılan lokasyon konusudur. Ben raporu hazırlayıp bir başka birine göndereceğim. Gönderdiğim kişi de diyelim ki masaüstüne kaydedebilir veya başka bir lokasyonada kaydedebilir. Yukarıda belirtilen "file:\\\c:\TestFolder\örnek-2.pdf" adres yolu sorunu çıkacak mıdır? Bunu aşmanın yolu var mıdır?
 
Katılım
12 Aralık 2015
Mesajlar
1,200
Excel Vers. ve Dili
Türkçe Ofis 2007
1-Sayfa konumu belirtilmesi için internet tarayıcısından açılması gerekiyor.
2-Word ve pdf dosyanız aynı klasörde bulunursa aşağıdaki kod işinizi görür.
Kod:
myPDF =ActiveDocument.Path & "\örnek-2.pdf"
Not: Baştaki "file:\\\" ifadesini siz yazmazsanız tarayıcının kendisi ekler.
Ben raporu hazırlayıp bir başka birine göndereceğim. Gönderdiğim kişi de diyelim ki masaüstüne kaydedebilir veya başka bir lokasyonada kaydedebilir.
Bu durum normal köprü kursanız da problem olur.
 
Son düzenleme:

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
..........Dosyayı herhangi bir PDF programında açtırmaz mıyız? .........

Aşağıdaki kodla, hemen hemen her bilgisayarda bulunan Adobe Reader programıyla söz konusu PDF dokümanının istenilen sayfası açılmaktadır.

Not: Koddaki AcroRd32.exe dosya yolunu, kendi bilgisayarınızdan kontrol edin.

Kod:
Sub Test_AdobeReader()
    '
    'Haluk -21/07/2018
    '
    myPDF = "C:\TestFolder\örnek-2.pdf"
    myAdobeReader = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    pageNum = 5
    Shell myAdobeReader & " /A ""page=" & pageNum & """ " & myPDF, vbNormalFocus
End Sub




.
 
Son düzenleme:

ilmtrz

Altın Üye
Katılım
27 Aralık 2012
Mesajlar
244
Excel Vers. ve Dili
excel 2013
Haluk bey vermiş olduğunuz kod harika çalıştı. Teşekkür ederim. Ben dosya yolu kodunu, Ali Beyin vermiş olduğu dosya yolu kodu ile değiştirdim ve tam istediğim gibi oldu. Test dosyası ekte. Yalnız ben bu kodu Belgeyi Görüntülemek İçin Tıklayınızyazısına atamak istiyorum. Bunu nasıl yapabilirim?


Kod:
Sub Test()
    myPDF = ActiveDocument.Path & "\örnek-2.pdf"
    myAdobeReader = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"
    pageNum = 3
    Shell myAdobeReader & " /A ""page=" & pageNum & """ " & myPDF, vbNormalFocus
End Sub
Test.jpg
 

Ekli dosyalar

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
Ben de Sayın ilmtrz' in sorusunu sormayı düşünüyordum. İyi oldu...

Ayrıca, bir sorum olacak... Pdf'nin 3. sayfasından diğer sayfalara geçmek için; her seferinde Word kodundaki sayfa sayısını değiştirmek mi gerekiyor?
 

ilmtrz

Altın Üye
Katılım
27 Aralık 2012
Mesajlar
244
Excel Vers. ve Dili
excel 2013
Yalnız ben bu kodu Belgeyi Görüntülemek İçin Tıklayınızyazısına atamak istiyorum. Bunu nasıl yapabilirim?
İnternette biraz araştırdım ve sonunda nasıl yapıldığını öğrendim. Anlatmaya çalışayım.

1. Öncelikle yukarıda paylaştığım yazı ekinde yer alan word belgesini açıyoruz ve "Belgeyi Görüntülemek İçin Tıklayınız" yazısını seçiyoruz.

1.PNG

2. Ekle/Hızlı Bölmeler/Alan seçiyoruz.

2.PNG

3. Açılan “Alan” penceresinde ilk önce “Alan adları:” bölümünden “MacroButton”u seçiyoruz. Daha sonra “Metni görüntüle:” bölmesine belgemizde oluşturulacak olan linkin adını yazıyoruz. Ben "Belgeyi Görüntülemek İçin Tıklayınız" yazdım. Siz istediğinizi yazabilirsiniz. Son olarak da “Makro adı:” bölmesinden “daha önce oluşturduğumuz makroyu bulup seçiyoruz. Bizim oluşturduğumuz makronun adı “Test” idi. Bu nedenle listede “Test” adlı makro seçilmiştir.

3.PNG

NOT: Linkin çalışabilmesi için Word belgesi ile PDF belgesinin aynı klasör içerisinde bulunması şarttır.

Emeği geçen herkese özellikle Haluk bey ile alicimri beye çok teşekkür ederim.
 

Ekli dosyalar

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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.


.
 
Son düzenleme:
Üst