Word belgesini her 5 veya n sayfada bir ayrı dosyalara nasıl bölebilirim?

YazarXiaoyang Değiştirme Tarihi2025-02-28

Uzun Word belgeleriyle çalışırken, içeriği daha kolay işlemek, paylaşmak veya düzenlemek için belgeyi daha küçük ve ayrı dosyalara bölmek gerekebilir. Belgenizi her 5, 10 veya istediğiniz sayfa sayısı kadar bölerek uzun içerikleri daha verimli yönetebilirsiniz.

Sayfaları tek tek elle kopyalayıp yapıştırmak zaman alıcı ve verimsizdir. Bu öğreticide, Word belgenizi her n sayfada bir ayrı dosyalara bölmek için hızlı ve kolay yöntemleri sizinle paylaşacağız:

VBA koduyla Word belgesini ayrı dosyalara Her n sayfa bölme

Harika bir özellik ile Word belgesini ayrı dosyalara Her n sayfa bölme

VBA koduyla Word belgesini ayrı dosyalara Her n sayfa bölme

Aşağıdaki VBA kodu, büyük bir belgeyi her n sayfada bir ayrı dosyalara bölmek için size yardımcı olabilir. Şu adımları izleyin:

Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
Tıklayın Ekle>Modül, ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın:

Sub DocumentSplitter()
    Dim xDoc As Document, xNewDoc As Document
    Dim xSplit As String, xCount As Long, xLast As Long
    Dim xRngSplit As Range, xDocName As String, xFileExt As String
    Dim xRegEx As RegExp
    Dim xPageCount As Integer
    Dim xShell As Object, xFolder As Object, xFolderItem As Object
    Dim xFilePath As String
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Application.ScreenUpdating = False
    Set xNewDoc = Documents.Add(Visible:=False)
    xDoc.Content.WholeStory
    xDoc.Content.Copy
    xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    With xNewDoc
        xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                 vbCrLf & vbCrLf & "Please enter the number of pages per split:", "Kutools for Word", xSplit)
        If Len(Trim(xSplit)) = 0 Then Exit Sub
        Set xRegEx = New RegExp
        With xRegEx
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^0-9]"
        End With
        If xRegEx.Test(xSplit) = True Then
            MsgBox "Please enter a valid page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", vbInformation, "Kutools for Word"
            GoTo L1
        End If
        xDocName = xDoc. Name
        xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
        xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
        xFilePath = xFilePath & xDocName
        For xCount = 0 To Int(xPageCount / xSplit)
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
            If xPageCount > xSplit Then
                xLast = xSplit
            Else
                xLast = xPageCount
            End If
            Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
            Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
            xRngSplit.Start = .Range.Start
            xRngSplit.Cut
            Documents.Add
            Selection.Paste
            ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
            ActiveWindow.Close
        Next xCount
        Set xRngSplit = Nothing
        xNewDoc.Close wdDoNotSaveChanges
        Set xNewDoc = Nothing
    End With
    Application.ScreenUpdating = True
End Sub

Kodu yapıştırdıktan sonra hâlâ Microsoft Visual Basic for Applications penceresindeyken, Araçlar > Referanslar seçeneğine tıklayın. Referanslar - Proje iletişim kutusunda, Kullanılabilir Referanslar listesinden Microsoft VBScript Regular Expressions 5,5 seçeneğini işaretleyin. Ekran görüntülerine bakın:
Tamam’a tıklayın, ardından kodu çalıştırmak için F5 tuşuna basın.
Bir Klasör Seç iletişim kutusu görünecektir. Bölünmüş dosyaları kaydetmek istediğiniz klasörü seçin ve Tamam'a tıklayın.

Klasör Seç iletişim kutusu

Kaç sayfa aralıklarla bölünmesi gerektiğini soran başka bir istem penceresi açılacaktır. İstenilen sayfa sayısını girin ve Tamam'a tıklayın.

Bölünecek sayfa numarasını girmek için iletişim kutusu

Belge ayrı dosyalara Her n sayfa bölünecektir. Sonuçları görüntülemek için belirtilen klasöre gidin.

Belge, her N sayfada bir ayrı dosyalara bölünür

Harika bir özellik ile Word belgesini ayrı dosyalara Her n sayfa bölme

Kutools for Word, güçlü bir Böl işlevi sunar; bu işlev, büyük bir Word belgesini Başlık 1, sayfa sonu, bölüm sonu veya sayfalara göre çok sayıda ayrı dosyaya hızla bölemenizi sağlar. Bu özellik, aksi takdirde sıkıcı ve zaman alıcı bir manuel süreci kolaylaştırır.

Tıklayın KUTOOLS PLUS>Böl.
Açılan iletişim kutusunda, gerekli olan aşağıdaki seçenekleri yapılandırın:
1. Split by menüsünden Her n sayfa seçeneğini seçin.
2. Giriş kutusuna n değerini girin.
3. Bir Kaydetme alanı seçin.
4. Bölünmüş belgeler için bir önek belirtin.
Ayarları tamamladıktan sonra Tamam'a tıklayın. Belge, seçtiğiniz seçeneğe (örneğin her 7 sayfada bir) göre birden fazla dosyaya bölünecektir.

Kutools for Word’deki Böl özelliği, büyük belgeleri daha küçük ve yönetilebilir dosyalara bölmeyi hem basit hem de verimli hale getirir.

Word’de benzer görevleri daha hızlı tamamlamanın bir yolunu mu arıyorsunuz? Kutools for Word’ü deneyin ve günlük işlerinizi kolaylaştırın!

İndirin Daha Fazla Bilgi Edinin

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 Al Kutools Hakkında Daha Fazla Bilgi Edinin