Bir Word belgesinde her sayfayı ayrı PDF dosyaları olarak nasıl kaydedebilirim?
Microsoft Word'de, yerleşik "Farklı Kaydet" özelliğini kullanarak ve Seçenekler iletişim kutusunda sayfa numarasını belirterek her sayfayı manuel olarak ayrı bir PDF olarak kaydedebilirsiniz. Ancak, yüzlerce sayfası olan büyük bir belgeyle çalışıyorsanız, bunu manuel olarak yapmak zaman alıcı olabilir. Bu makalede, tüm sayfaları hızlıca bireysel PDF dosyaları olarak kaydetmek için bir yöntem tanıtılmaktadır.
VBA kodu ile toplu olarak her sayfayı ayrı PDF dosyaları olarak kaydedin
VBA kodu ile toplu olarak her sayfayı ayrı PDF dosyaları olarak kaydedin
Aşağıdaki VBA kodunu kullanarak bir Word belgesindeki her sayfayı otomatik olarak bireysel PDF dosyaları olarak kaydedebilirsiniz. İşte nasıl yapılacağı:
- İşlemek istediğiniz Word belgesini açın. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
- 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
- Kodu çalıştırmak için F5 tuşuna basın.
- Açılan Gözat penceresinde, PDF dosyalarını kaydetmek için bir klasör seçin ve "Tamam" düğmesine tıklayın.
- İlk "Kutools for Word" iletişim kutusunda başlangıç sayfası numarasını girin ve "Tamam" düğmesine tıklayın.
- İkinci "Kutools for Word" iletişim kutusunda bitiş sayfası numarasını girin ve "Tamam" düğmesine tıklayın.
Not: Örneğin, birkaç ardışık sayfayı (4, 5 ve 6. sayfalar) kaydetmek için iki iletişim kutusuna sırasıyla "4" ve "6" girin.
Betik çalışmayı tamamladıktan sonra, 4. adımda seçtiğiniz klasöre gidin. Belirtilen her sayfanın ayrı bir PDF dosyası olarak kaydedildiğini göreceksiniz.

Bir Word belgesini kolayca birden fazla belgeye bölün |
Belgeyi Böl aracıyla bir Word belgesini kolayca birden fazla belgeye ayırabilirsiniz. Elle kopyalayıp yapıştırmak yerine, bu araç sayesinde belgenizi sayfa, Başlık 1, sayfa sonları veya bölüm sonlarına göre bölebilirsiniz - verimliliği önemli ölçüde artırır. |
![]() |
Kutools for Word: Yüzlerce kullanışlı araçla Word deneyiminizi geliştirin. Farkı görmek için şimdi indirin! |
En İyi Ofis Verimlilik Araçları
Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile 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 Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Farklı Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / Toplu Olarak PDF'ye Dönüştür...
✏ İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Tablo Satırlarını ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını, Bağlantıları Temizleyin / Daha fazla kaldırma aracı için Kaldır grubunu keşfedin...
➕ Yaratıcı Eklemler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Ekle / Barkod Ekle / Birden Fazla Resim Ekle / Ekle grubunda daha fazlasını keşfedin...
🔍 Hassas Seçimler: Belirli Sayfaları, Tabloları, Şekilleri, Başlık Paragraflarını Nokta Atışıyla Seçin / Daha fazla Seç özelliğiyle gezinmeyi kolaylaştırın...
⭐ Yıldız İyileştirmeler: İstediğiniz Konuma Hızla Gidin / Yinelenen Metni Otomatik Olarak Ekleyin / Belge Pencereleri Arasında Hızla Geçiş Yapın /11 Dönüştürme Aracı...
🌍 40+ Dili Destekler: Kutools'u tercih ettiğiniz dilde kullanabilirsiniz – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil desteği!

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 Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Toplu Olarak PDF'ye Dönüştür
- ✏ İçerik Düzenleme: Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır
- 🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır
- ➕ Yaratıcı Eklemler: Binlik Ayırıcılar Ekle / Onay Kutuları Ekle / QR Kodları Oluştur
- 🌍 40+ Dili Destekler: Kutools sizin dilinizde –40'tan fazla dil desteği!