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 Zirveye Taşıyın!

🤖 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 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ır ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...

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

➕ Yaratıcı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu / Barkod / Birden Fazla Resim / Ekle grubunda daha fazlasını keşfedin...

🔍 Hassas Seçimler: Belirli Sayfaları / Tabloları / Şekilleri / Başlık Paragraflarını Hedefleyin; daha fazla Seç özelliğiyle gezinmeyi geliştirin...

⭐ Yıldız Geliştirmeler: Herhangi Bir Konuma Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri Arasında Geçiş Yap /11 Dönüştürme Aracı...

👉 Bu özellikleri denemek ister misiniz? Kutools for Word’u hemen indirin! 🚀

Ücretsiz İndir     Şimdi Satın Al     Kutools for Word hakkında 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 Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Toplu 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ı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / QR Kodları Oluştur

Ücretsiz İndir Şimdi Satın Al Kutools hakkında daha fazla bilgi edinin