Word to PDF

[muratgunay48]

Arkadaşlar, elimde bir hocamın yazdığı bir kod var. İş yerinde kullanıyorum.
Evde çalışıyor. (Windows 10, 64 bit, Office 2016)
İş yerinde çalışıyor (Windows 10, 32 bit, Office 2010)
Müdürün bilgisayarında çalışmıyor (Windows 10, 64 bit, Office 2007)
Acaba bir bakmanız mümkün mü.
@Korhan Ayhan hocam, bakabilirseniz müteşekkir olurum.
Saygılarımla.

 

[balanar]

2007 olmasından kaynaklı sanırım

 

[muratgunay48]

2007 olmasından kaynaklı sanırım

Yolu yok mu acaba.

 

[halit3]

Aşağıdaki linkdeki SaveAsPDF.rar dosyasını indir ve bilgisayarınıza karun ondan sonra ofis 2007 de kodunuz çalışacaktır.

İstenen sayfaları Tek parça olarak PDF yapmak

Dosyadaki istenen sayfaları veya istenen bölümleri Tek dosya olarak PDF yapmak için kodları bir altdaki mesajıma ekliyorum. Kodların çalışması için ekli resimdeki gibi tablonuz olmalı G,H sütundaki hücreler dolu olmalı seçenek düğmesi ile seçilmiş olanlar için PDF dosyası oluşturuyor...

www.excel.web.tr

 

[muratgunay48]

Aşağıdaki linkdeki SaveAsPDF.rar dosyasını indir ve bilgisayarınıza karun ondan sonra ofis 2007 de kodunuz çalışacaktır.

İstenen sayfaları Tek parça olarak PDF yapmak

Dosyadaki istenen sayfaları veya istenen bölümleri Tek dosya olarak PDF yapmak için kodları bir altdaki mesajıma ekliyorum. Kodların çalışması için ekli resimdeki gibi tablonuz olmalı G,H sütundaki hücreler dolu olmalı seçenek düğmesi ile seçilmiş olanlar için PDF dosyası oluşturuyor...

www.excel.web.tr

Çok teşekkür ederim hocam. İş yerine gidince hemen deneyip sonucu yazacağım. (Ben gece çalışıyorum da, basın sektöründe)

 

[muratgunay48]

@halit3 hocam, sizin eklediğiniz dosyanın amacını tam olarak anlamadım. Ben sadece SaveAsPDF kuruyorum o kadar. Sonra benim excel dosyam çalışacak.
Doğru mu anladım?
Saygılarımla.

 

[muratgunay48]

@halit3 hocam, dosyayı kurdum ama yine çalışmadı. Şurada hata veriyor.

 

[Korhan Ayhan]

Eğer imkanınız varsa çalışmayan bilgisayara en az 2010 sürümü kurmayı deneyiniz.

 

[halit3]

Bu dosya Microsoft un ofis 2007 için yaptığı pdf yamasıdır excell yeni sürümleri çıktığından olacaktır ki kendi web sitesindeki eklentiyi kaldırmış.

Microsoft İndirme Merkezi: Windows, Office, Xbox ve Daha Fazlası

www.microsoft.com

eğer kodunuz diğer bilgisayarlarda çalışıyorsa bu kodu ofis 2007 yüklü bir bilgisayarda ilgili eklentiyi yüklerseniz kod çalışır.
bu eklenti ofis 2003 de çalışmaz bilgilerinize.

 

[muratgunay48]

Eğer imkanınız varsa çalışmayan bilgisayara en az 2010 sürümü kurmayı deneyiniz.

Hocam, iş yeri bilgisayarı. Lisanslı alınmış. 2007.

 

[muratgunay48]

Eğer imkanınız varsa çalışmayan bilgisayara en az 2010 sürümü kurmayı deneyiniz.

Hocam aslında şöyle, bundaki amaç tamamen tarih. Word ile oluşturulmuş kapaklar var. 70 80 tane. Bize lazım olan PDF formatında olması. Bir kere yapın, dursun diyeceksiniz ama. Üzerinde tarih olması lazım. PDF dosyasında tarihi otomatik güncelleme yolu olsa, hiç bir şeye gerek kalmayacak. Ama bildiğim kadarıyla yok.

 

[Korhan Ayhan]

Biraz paraya kıyıp 2010 versiyona terfi etmek tüm sorunları çözecektir.

Ya da müdürünüz bu işi başkasına pas edecek. Kendisi bu işlerle uğraşmayacak.

 

[halit3]

Bu kodu ofis 2007 yüklü bilgisayarda bir çalıştır sonucu buraya yaz pdf dosyası oluşturuyormu

Sub pdfaktar()

Yol = ThisWorkbook.Path
Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

MsgBox "İşlem Tamam", vbInformation, " U Y A R I "

End Sub

 

[Trilenium]

ALT+F11 yapın

Tools seçeneği altında references bölümüne tıklayın

Burada Microsoft Word 16.0 Object library yoktur muhtemelen.

Aşağıya inerek Microsoft Excel 14.0 Object Library veyahangisi yüklü ise onu işaretleyip tekrar dener misiniz.

 

[muratgunay48]

Bu kodu ofis 2007 yüklü bilgisayarda bir çalıştır sonucu buraya yaz pdf dosyası oluşturuyormu

Sub pdfaktar()

Yol = ThisWorkbook.Path
Say = CreateObject("Scripting.FileSystemObject").getfolder(Yol).Files.Count + 1

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol & "\" & Say & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

MsgBox "İşlem Tamam", vbInformation, " U Y A R I "

End Sub

Peki hocam. Sonucu yazacağım.

 

[muratgunay48]

ALT+F11 yapın

Tools seçeneği altında references bölümüne tıklayın

Burada Microsoft Word 16.0 Object library yoktur muhtemelen.

Aşağıya inerek Microsoft Excel 14.0 Object Library veyahangisi yüklü ise onu işaretleyip tekrar dener misiniz.



Ekli dosyayı görüntüle 234290

Hocam, kodu yazan hocam da böyle bir şey demişti. Deneyip sonucu yazacağım. Umuyorum çalışır. Teşekkür ederim.

 

[Korhan Ayhan]

Ek olarak burada bazı işlemler tarif edilmiş. Belki sorununuz çözülebilir.

 

[halit3]

Bende bazı yapılacak işlemleri yazayım yukarıdaki mesajlarda yazmışlar zaten
1-referansları kontrol ediniz missing ile başlayan referansları siliniz.
2-saveas.exe pdf eklenti dosyasını mutlaka kurun
3-bilgisayarınızda docx uzantılı dosya açılıp açılmadığını konrol ediniz.
4-referanslarda ofis 2007 için microsoft word 12.0 object library işaretli olmalı

benim bilgisayarımda ofis 2007 ve ofis 2003 yüklü o yüzden docx uzantılı dosya açılıyormu eğer açılmıyorsa ofis 2007 word bölümünü yüklemelisiniz.

 

[muratgunay48]

Ek olarak burada bazı işlemler tarif edilmiş. Belki sorununuz çözülebilir.

Hocam, tek tek PDF olarak kaydediyor zaten. Öteki türlü de, şirket biliyorsunuz, alın deyince almazlar. Olmadı benim bilgisayarımda yapmayı önereceğim (benimkinde oluyor, benimkinde 2010 var). Sizleri de yordum zaten.
Tekrar teşekkür ederim.

 

[Korhan Ayhan]

Çözüm önerilerini deneyin. Belki para vermeden çözüme kavuşursunuz.