Skip to main content

Kutools for Office — Bir Paket. Beş Araç. Daha Fazla İş Yapın.

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

Author Siluvia Last modified

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ğı:

  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
    VBA window with Insert > Module selected and VBA code copied into the Module window
  3. Kodu çalıştırmak için F5 tuşuna basın.
  4. Açılan Gözat penceresinde, PDF dosyalarını kaydetmek için bir klasör seçin ve "Tamam" düğmesine tıklayın.
    Browse window
  5. İlk "Kutools for Word" iletişim kutusunda başlangıç sayfası numarasını girin ve "Tamam" düğmesine tıklayın.
    Kutools for Word dialog box with a text box for entering the start page number
  6. İkinci "Kutools for Word" iletişim kutusunda bitiş sayfası numarasını girin ve "Tamam" düğmesine tıklayın.
    Second Kutools for Word dialog box with a text box for entering the last page number

    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.

Pages are split and saved as individual PDF files
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.
A screenshot of the Split Document utility splitting a Word document by page
Kutools for Word: Yüzlerce kullanışlı araçla Word deneyiminizi geliştirin. Farkı görmek için şimdi indirin!

En İyi Ofis Verimliliği Araçları

Kutools for Word - Word deneyiminizi 100 dikkate değer özellik ile geliştirin!

🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / 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 / Aralığı PDF/TXT/DOC/HTML gibi çeşitli biçimlerde Dışa Aktar / Toplu PDF Dönüştürme...

✏ Metin Düzenleme: Birden fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Satırları ve Sütunları Tabloyu Çevir / Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır / Metin Kutularını Kaldır / Bağlantıları Kaldır / Diğer kaldırma araçları için Kaldır grubuna göz atın...

➕ Yaratıcı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu Oluştur / Barkod Oluştur / Birden fazla Resim Ekle / Daha fazlasını Ekle grubunda keşfedin...

🔍 Hassas Seçimler: Belirli Sayfa / Tabloları / Şekilleri / Başlık Paragraflarını tam olarak seçin / Daha fazla Seç özelliği ile gezinmeyi geliştirin...

⭐ Özel Geliştirmeler: Herhangi bir Aralığa Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri arasında geçiş yap /11 Dönüşüm aracı...

🌍 40+ Dil Desteği: Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil destekleniyor!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Bu özellikleri denemek ister misiniz? Kutools for Word'u hemen indirin! 🚀
 

✨ Kutools for Office – Tek kurulumda beş güçlü araç!

Şunları içerir: Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tüm5 araca tek bir pakette sahip olun | 🔗 Microsoft Office ile sorunsuz entegrasyon | ⚡ Zamanı Kaydet ve anında verimliliği artır

En İyi Ofis Verimliliği Araçları

Kutools for Word - 100+ Word için araçlar

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