Word belgesindeki her sayfayı ayrı ayrı PDF dosyaları olarak nasıl kaydedebilirim?

Microsoft Word içinde, yerleşik "Farklı Kaydet" özelliğini kullanarak her sayfayı ayrı bir PDF olarak manuel olarak kaydedebilirsiniz; bunun için Seçenekler iletişim kutusunda ilgili sayfa numarasını belirtmeniz gerekir. Ancak yüzlerce sayfası olan büyük bir belgeyle çalışıyorsanız bu işlem son derece zaman alıcı hale gelebilir. Bu makalede, tüm sayfaları tek tek PDF dosyaları olarak hızlıca kaydetmenizi sağlayacak pratik bir yöntem açıklanmaktadır.

VBA koduyla her sayfayı toplu olarak ayrı PDF Dosyaları olarak kaydedin

VBA koduyla her sayfayı toplu olarak ayrı PDF Dosyaları olarak kaydedin

Bir Word belgesindeki her sayfayı otomatik olarak ayrı bir PDF dosyası olarak kaydetmek için aşağıdaki VBA kodunu kullanabilirsiniz. İşte nasıl yapacağınız:

1. İşlemek istediğiniz Word belgesini açın. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Visual Basic penceresinde, "Ekle" > "Modül" seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu modül penceresine yapıştırın:

   Sub SaveAsSeparatePDFs()
   'Updated by Extendoffice 20180906
       Dim I As Long
       Dim xStr As String
       Dim xPathStr As Variant
       Dim xDictoryStr As String
       Dim xFileDlg As FileDialog
       Dim xStartPage, xEndPage As Long
       Dim xStartPageStr, xEndPageStr As String
       Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
       If xFileDlg.Show <> -1 Then
           MsgBox "Please chose a valid directory", vbInformation, "Kutools for Word"
           Exit Sub
       End If
       xPathStr = xFileDlg.SelectedItems(1)
       xStartPageStr = InputBox("Begin saving PDFs starting with page __? " & vbNewLine & "(ex: 1)", "Kutools for Word")
       xEndPageStr = InputBox("Save PDFs until page __?" & vbNewLine & "(ex: 7)", "Kutools for Word")
       If Not (IsNumeric(xStartPageStr) And IsNumeric(xEndPageStr)) Then
           MsgBox "The enterng start page and end page should be number format", vbInformation, "Kutools for Word"
           Exit Sub
       End If
       xStartPage = CInt(xStartPageStr)
       xEndPage = CInt(xEndPageStr)
       If xStartPage > xEndPage Then
           MsgBox "The start page number can't be larger than end page", vbInformation, "Kutools for Word"
           Exit Sub
       End If
       If xEndPage > ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) Then
           xEndPage = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
       End If
       For I = xStartPage To xEndPage
           ActiveDocument.ExportAsFixedFormat xPathStr & "\Page_" & I & ".pdf", _
           wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportFromTo, I, I, wdExportDocumentWithMarkup, _
           False, False, wdExportCreateHeadingBookmarks, True, False, False
       Next
   End Sub

   

3. Kodu çalıştırmak için F5 tuşlarına basın.
4. Görünen Gözat penceresinde, bir klasör seçin, PDF dosyalarını kaydedin ve “Tamam” düğmesine tıklayın.

   

5. İlk “Kutools for Word” iletişim kutusunda başlangıç sayfa numaranızı girin ve “Tamam”a tıklayın.

   

6. İkinci “Kutools for Word” iletişim kutusunda bitiş sayfa numarasını girin ve “Tamam” düğmesine tıklayın.

   

   Not: Örneğin, ardışık birkaç sayfayı—4, 5 ve 6 numaralı sayfaları—kaydetmek için iki iletişim kutusuna sırayla "4" ve "6" değerlerini girin.

Betik çalıştıktan sonra, 4. adımda seçtiğiniz klasöre gidin. Belirttiğiniz her sayfanın ayrı bir PDF dosyası olarak kaydedildiğini göreceksiniz:

Bir Word belgesini birden çok belgeye kolayca bölün

Bir Word belgesini Belgeyi Bölaracıyla birden çok belgeye kolayca bölün. Belgenizi elle kopyalayıp yapıştırmak yerine, bu araç sayesinde belgenizi sayfa,Başlık 1,Sayfa Sonuveya Bölüm Sonutemelinde bölebilirsiniz – verimliliğinizi büyük ölçüde artırır.

Kutools for Word: Word deneyiminizi yüzlerce kullanışlı araçla yükseltin. Hemen indirin ve farkı görün!

En İyi Ofis Verimlilik Araçları

Kutools for Word ile Word deneyiminizi 100'den fazla göz alıcı özellikle yükseltin!

🤖KUTOOLS AI Özellikleri: Yapay Zeka Asistanı, Gerçek Zamanlı Asistan, Süper Parlat (Biçimi Koru), Süper Çeviri (Biçimi Koru), AI Redaksiyon, Yapay Zeka Düzeltme…

📘Belge Uzmanlığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Biçimlerde Dışa Aktar (PDF/TXT/DOC/HTML…) / Toplu PDF Dönüştürme…

✏İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Satırları ve Sütunları Çevirerek Tabloyu Döndür / Tabloyu Metne Dönüştür…

🧹Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını ve Köprüleri kaldırmak için daha fazla araç bulmak üzere Kaldırgrubuna gidin…

➕Yaratıcı Ekleme Araçları: Binlik Ayırıcılar, Onay Kutusu, Radyo Düğmesi, QR Kodu, Barkod, Birden Çok Resim ve daha fazlasını Eklegrubunda keşfedin…

🔍Hassas Seçimler:Belirli Sayfaları/Tabloları/Şekilleri/Başlık Paragrafı/ Gezinmeyi daha fazla özelliğiyle geliştirin Seç…

⭐Yıldızlı Geliştirmeler: Herhangi Bir Konuma Git / Tekrarlanan Metni Otomatik Ekle / Belgeler Arasında Geçiş Yap Windows / 11Araçları Dönüşüm…

🌍40+ Dil Desteği: Kutools’u istediğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil dahil olmak üzere kapsamlı dil desteği sunuyor!

 

Ücretsiz İndir     Şimdi Satın Al     Daha Fazla Bilgi Edinin

 

---

Office Tab- Office’a Sekmeli Arabirim Getirir, İşlerinizi Çok Daha Kolaylaştırır

• Word, Excel, PowerPoint, Publisher, Access, Visio ve Project’te sekmeli düzenleme ve okumayı etkinleştirin.
• Yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!

Ücretsiz İndir     Şimdi Satın Al     Daha Fazla Bilgi Edinin

 

---

✨ Kutools for Office – Tek Kurulum, Beş Güçlü Araç!

İçerir Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint

📦 Tüm 5 araçları tek bir pakette alın | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve verimliliği hemen artırın

⬇️ Şimdi İndir🎁 Tam Paketi Satın Al📖 Daha Fazla Bilgi Edinin

En İyi Ofis Verimlilik Araçları

Kutools for Word- Word için 100+ Araç

• 🤖KUTOOLS AI Özellikleri:Yapay Zeka Asistanı/Gerçek Zamanlı Asistan/Süper Parlat/Süper Çeviri/AI Redaksiyon/Yapay Zeka Düzeltme
• 📘Belge Uzmanlığı:Sayfaları Böl/Belgeleri Birleştir/Toplu PDF Dönüştürme
• ✏İçerik Düzenleme:Toplu Bul ve Değiştir/Tüm Resimleri Yeniden Boyutlandır
• 🧹Zahmetsiz Temizlik:Fazladan Boşlukları Kaldır/Bölüm Sonu Kaldır
• ➕Yaratıcı Ekleme Araçları:Binlik Ayırıcılar Ekle/Onay Kutusu Ekle/QR Kodu Oluştur
• 🌍40+ Dil Desteği: Kutools sizin dilinizde konuşur – 40’tan fazla dil desteğiyle!

Ücretsiz İndirŞimdi Satın AlKutools Hakkında Daha Fazla Bilgi Edinin