Bir Word Belgesini Birden Çok Belgeye Nasıl Bölünür?

Eğer bölünmesi gereken büyük bir Word belgeniz varsa, bu öğretici size üç etkili yöntemi gösterecektir. Belirli bir sınırlayıcıya veya sayfalara göre VBA kullanmayı tercih edip etmediğinizden bağımsız olarak, Kutools for Word'un akıcı işlevselliğini seçebilirsiniz ve ihtiyaçlarınıza uygun bir çözüm bulabilirsiniz.

• VBA ile belirli bir sınırlayıcıya göre Word belgesini bölme
• Kutools for Word kullanarak başlığa/sayfaya/bölüm sonuna/sayfa sonuna göre Word belgesini bölme
• VBA ile sayfalara göre Word belgesini bölme

VBA ile belirli bir sınırlayıcıya göre Word belgesini bölme

Belgeyi manuel olarak bölmek yerine, belirli bir sınırlayıcıya göre bir Word belgesini bölmek için VBA kullanabilirsiniz. Aşağıdaki adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Tıklayın Ekle > Modül, ve aşağıdaki VBA kodunu modül penceresine yapıştırın.

   Sub SplitNotes(delim As String, strFilename As String)
   Dim doc As Document
   Dim arrNotes
   Dim I As Long
   Dim X As Long
   Dim Response As Integer
   arrNotes = Split(ActiveDocument.Range, delim)
   Response = MsgBox("This will split the document into " & UBound(arrNotes) + 1 & " sections. Do you wish to proceed?", 4)
   If Response = 7 Then Exit Sub
   For I = LBound(arrNotes) To UBound(arrNotes)
   If Trim(arrNotes(I)) <> "" Then
   X = X + 1
   Set doc = Documents.Add
   doc.Range = arrNotes(I)
   doc.SaveAs ThisDocument.Path & "\" & strFilename & Format(X, "000")
   doc.Close True
   End If
   Next I
   End Sub
   Sub test()
   'delimiter & filename
   SplitNotes "///", "Notes "
   End Sub

3. Çalıştırmak için Çalıştır düğmesine tıklayın veya F5 tuşuna basın.
4. Microsoft Word açılır penceresinde, Evet'e tıklayarak onaylayın.

   

Kutools for Word kullanarak başlığa/sayfaya/bölüm sonuna/sayfa sonuna göre Word belgesini bölme

Kutools for Word, manuel yöntemler veya VBA'ya kıyasla bir belgeyi bölmek için daha rahat ve esnek bir yol sunar. Başlıklara, sayfalara, bölüm sonlarına, sayfa sonlarına, her n sayfaya veya özel sayfa aralıklarına göre bir belgeyi bölmek için birden fazla seçenek sunar, böylece bölme işlemini özel ihtiyaçlarınıza göre uyarlayabilirsiniz.

1. Bölme özelliğini etkinleştirmek için Kutools Plus > Böl'e tıklayın.

   

2. Belgeyi Bölme iletişim kutusunda, aşağıdaki seçenekleri yapılandırın:

   Bölme yöntemini Bölme Türü açılır listesinden seçin. Kullanılabilir seçenekler arasında başlık 1, sayfa sonları, bölüm sonları, sayfalar, her n sayfa veya özel sayfa aralıkları bulunur. Tıklayın Gözat düğmesine bölünen belgeler için hedef klasör seçmek üzere. Yeni belge adları için bir anahtar kelimeyi Belge Öneki alanına girin. İpucu: Tıklayarak Yenile düğmesine bölünen belge adlarını önizleyebilirsiniz. Önizleme kutusunda. Tamam'a tıklayın.

Belge, belirtilen yönteme göre bölünecek ve yeni dosyalar belirlenen klasöre kaydedilecektir.

VBA ile sayfalara göre Word belgesini bölme

Eğer bir Word belgesini hızlıca birden çok belgeye bölmek istiyorsanız, her biri bir sayfa içeren, bu görevi otomatikleştirmek için bir VBA makrosu kullanabilirsiniz. Aşağıdaki adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Tıklayın Ekle > Modül, ardından aşağıdaki VBA kodunu yeni modül penceresine yapıştırın:

   Sub SplitIntoPages()
   Dim docMultiple As Document
   Dim docSingle As Document
   Dim rngPage As Range
   Dim iCurrentPage As Integer
   Dim iPageCount As Integer
   Dim strNewFileName As String
   Application.ScreenUpdating = False 'Makes the code run faster and reduces screen flicker a bit.
   Set docMultiple = ActiveDocument 'Work on the active document
   Set rngPage = docMultiple.Range 'Instantiate the range object
   iCurrentPage = 1
   'Get the document's page count
   iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages)
   Do Until iCurrentPage > iPageCount
       If iCurrentPage = iPageCount Then
           rngPage.End = ActiveDocument.Range.End 'Last page (no next page)
       Else
           'Find the beginning of the next page
           'Must use the Selection object. The Range.Goto method will not work on a page
           Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1
           'Set the end of the range to the point between the pages
           rngPage.End = Selection.Start
       End If
       rngPage.Copy 'Copy the page into the Windows clipboard
       Set docSingle = Documents.Add 'Create a new document
       docSingle.Range.Paste 'Paste the clipboard contents to the new document
       'Remove any manual page break to prevent a second blank
       docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:=""
       'Build a new sequentially numbered file name based on the original multi-paged file name and path
       strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc")
       docSingle.SaveAs strNewFileName 'Save the new single-paged document
       iCurrentPage = iCurrentPage + 1 'Move to the next page
       docSingle.Close 'Close the new document
       rngPage.Collapse wdCollapseEnd 'Go to the next page
   Loop 'Go to the top of the do loop
   Application.ScreenUpdating = True 'Restore the screen updating
   'Destroy the objects.
   Set docMultiple = Nothing
   Set docSingle = Nothing
   Set rngPage = Nothing
   End Sub

3. Çalıştırmak için Çalıştır düğmesine tıklayın veya F5 tuşuna basın.

İlgili makaleler:

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!

👉 Bu özellikleri denemek ister misiniz? Kutools for Word'u şimdi indirin! 🚀

Ücretsiz İndir     Şimdi Satın Al     Kutools for Word Hakkında Daha Fazla Bilgi

 

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!

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