Çözüldü Dosyaları Seç Birleştir ve PDF Yap

aaaaa.zip içindeki wordl dosyalarını mı PDF yapmak istiyorsunuz ?

şahin1 hocam teşekkür ederim geri dönüşünüz için,

Evet word dosyalarını pdf yapmaya çalışıyorum ama bir sorun var word dosyalarında üst ve alt bilgi olunca sorun oluyor boş çıkıyor

İşlemi direkt ms word üzerinden yapmak isterseniz gerekli kodlar:
Oluşturulan Pdf ismi makro içinde belirtiliyor: BirlestirilmisBelgeler

İlginiz için teşekkürler, tek word belgesinde işlem yapıyor.

1903emre34' Alıntı:

İlginiz için teşekkürler, tek word belgesinde işlem yapıyor.

Genişletmek için tıkla...

Kullanımı tarif ediyorum:
Boş bir belge açıyoruz. Vba sayfasına eklediğim kodların tamamını yapıştırıyoruz. Sub MergeDocuments() makrosu çalıştırılınca klasör seçme penceresi geliyor. Orada birleştirilecek word dosyalarınızın bulunduğu klasörü seçiyoruz. Makromuz da oradaki tüm doc* uzantılı dosyaları tek tek seçip bu boş belgemize alt alta ekliyor. Sayfa ayarları, alt/üst bilgiler dahil. Sonunda pdf olarak kaydediyor. Bu arada pdf olarak kaydetmesi için yol tanımını koymayı atlamışız, onu farkettim. Bu haliyle sanırım Belgelerim klasörüne kaydetmiştir. ........."\BirlestirilmisBelgeler.pdf" _ .........satırını ..................strFolder & "\BirlestirilmisBelgeler.pdf" _ .........şeklinde yaparsanız seçtiğimiz aynı klasörümüze kayıt yapar. Bu düzeltmeyi 4 nolu mesajda da yapıyorum.

Teşekkürler, şimdi oldu. dosya içerisinde 20 tane word belgesi bulunmakta olup, dosya içerisinde karışık halinde aşağıdaki gibi sırayla pdf oluşturabilir miyiz

Ocak 2023
Şubat 2023
Mart 2023
1.geçici belgesi
Nisan 2023
Mayıs 2023
Haziran 2023
2.geçici belgesi
Temmuz 2023
Ağustost 2023
Eylül 2023
3.geçici belgesi
Ekim 2023
Kasım 2023
Aralık 2023
Kurumlar Çalışma Kağıdı

İsimleri sırasıyla "array" içine yazmak gerekiyor. Ben örnek olması için 4 adedini yazdım. Siz tamamını doldurursunuz.

strFile = Array("Ocak 2023.doc", "Şubat 2023.doc", "Mart 2023.doc", "1.geçici belgesi.doc","Nisan 2023.doc","Mayıs 2023","Haziran 2023","2.geçici","Temmuz 2023","Ağustos 2023","Eylül 2023","3.geçici,"Ekim 2023","Kasım 2023","Aralık 2023","Kurumlar Çalışma Kağıdı") yazdım aşağıdaki hata verdi

Array'ı hatalı giriyorsunuz diyor. Yazım kurallarına göre "3.geçici,"Ekim 2023" burası hatalı
"3.geçici","Ekim 2023" gibi olmalı. Ayrıca uzantıların bazısı da yazılmamış!!!

2 tane sayfa olunca, bir tane ekstra boş sayfa çıkmaktadır, örnek olarak mart 2022 bakabilir misiniz

Fazla gibi görünse de, değil aslında. Mart ayı dosyasındaki 2 sayfalık toplam SATIR sayısı birleştirilen dosyaya alınınca 2 sayfaya sığmadığı için mecburen 3. sayfaya taşıyor. Bunu siz de kontrol edebilirsiniz. Her iki dosyadaki paragraf ayarlarına özellikle Paragraf önce/sonra boşluk ayarına bakın. Peki ne yapabiliriz?
EĞER bazı dokümanlar farklı yapılarda olabiliyor ise mecburen makro son satırında pdf yapmadan önce durdurup (stop yazarak makroyu o satırda durdurabiliyoruz) elle müdahale edeceğiz sonra makroya devam diyeceğiz.
EĞER tüm dokümanlar aynı ayarda ise (paragraf/font vs.); ilk oluşturduğumuz boş sayfayı kullanmayalım. Mesela "Ocak 2023.doc" belgesinden tek sayfa üretelim ve bu ürettiğimiz sayfada makromuzu çalıştıralım.