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 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!

👉 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

 

✨ 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

⬇️ Şimdi İndir 🎁 Tüm Paketi Satın Al 📖 Daha Fazla Bilgi Edinin

En İyi Ofis Verimliliği Araçları

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

• 🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / 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
• ✏ Metin 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ı Ekler: Binlik Ayırıcıları Ekle / Onay Kutuları Ekle / QR Kodu Oluştur
• 🌍 40+ Dil Desteği: Kutools sizin dilinizde –40'tan fazla dil desteği!

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