Word Belgenizdeki Bölüm Sonlarının Türünü Değiştirmenin 2 Hızlı Yolu

Bu yazıda, Word belgenizdeki bölüm sonlarının türünü değiştirmenin 2 hızlı yolu olacak.

Word'de en çok kullanılan bölüm sonu türleri "Sonraki Sayfa" ve "Devamlı"dır. İlkini eklemek, yeni bölüm için yeni bir sayfa başlatmak anlamına gelir. Bu, bölümleri net bir şekilde ayırır. Ancak yazdırma söz konusu olduğunda, ekstra kağıt gerekecektir. Elbette, bu çevre dostu bir yöntem değildir. O zaman, size çok fazla kağıt tasarrufu sağlayabilecek ancak ayırma ihtiyacını karşılamada iyi sonuç vermeyebilecek "Devamlı" bölüm sonunu kullanmayı düşünebilirsiniz.

Bu nedenle, özel gereksinime göre seçebileceğiniz yolları tanıtmak istiyoruz.

Yöntem 1: Sayfa Yapısını Değiştirin

1. Öncelikle, imlecinizi hedef bölüme getirin ve Şerit'teki "Sayfa Düzeni" sekmesine tıklayın.
2. Ardından, aynı ad iletişim kutusunu açmak için "Sayfa Yapısı" grubundaki ok düğmesine tıklayın.
3. Ardından kutudaki "Düzen" sekmesine tıklayın.
4. Ardından, "Bölüm başlangıcı" açılır kutusundan istediğiniz bölüm sonu türünü seçin.
5. Ardından, "Uygula" açılır kutusunda bir uygulama aralığı seçin. Tek bir bölüm sonunun türünü veya birden çok bölümün türünü de değiştirmeyi seçebilirsiniz. 

İşte sonuç:

Yöntem 2: Bir Belgedeki Tüm Bölüm Sonlarının Türünü Değiştirmek için Word Makrosunu Çalıştırın

1. Öncelikle, Word'de VBA düzenleyicisini açmak için "Alt + F11" tuşlarına basın.
2. Ardından “Normal” projeye tıklayın ve menü çubuğundaki “Ekle” sekmesine tıklayın.
3. Ardından açılır menüden “Modül” seçeneğini seçin.
4. Daha sonra açmak için yeni modüle çift tıklayın.
5. Şimdi düzenleme alanına şu kodları yapıştırmanız yeterli:

Sub ChangeNextPageBreakToContinuous()
  Dim nSectionNum As Integer
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nSectionNum = objDoc.Sections.Count

  For nSectionNum = nSectionNum To 1 Step -1
    With objDoc.Sections(nSectionNum).Range.PageSetup
      If .SectionStart = wdSectionNewPage Then
        .SectionStart = wdSectionContinuous
      End If
    End With
  Next nSectionNum
 
  Application.ScreenUpdating = True
End Sub

6. Makroyu çalıştırmak için “F5” tuşuna basın.

Bu makro “Sonraki Sayfa” tipindeki tüm bölüm sonlarını “Sürekli” olarak değiştirecektir. Sonuç, yöntem 1'deki ile aynıdır.

Şimdi, tüm sürekli bölüm sonlarını "Sonraki Sayfa" türüne değiştirmeniz gerekirse, aşağıdaki makroyu kullanın:

Sub ChangeContinuousBreakToNextPageBreak()
  Dim nSectionNum As Integer
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nSectionNum = objDoc.Sections.Count

  For nSectionNum = nSectionNum To 1 Step -1
    With objDoc.Sections(nSectionNum).Range.PageSetup
      If .SectionStart = wdSectionContinuous Then
        .SectionStart = wdSectionNewPage
      End If
    End With
  Next nSectionNum
 
  Application.ScreenUpdating = True
End Sub

Belgeleri Onarma Aracı

Word sorunlarıyla karşılaşmak ve sonuçlanmak pek olası değil hasarlı docx. Bu nedenle, hemen harekete geçmelisiniz. Verilerinizi kurtarmanın en hızlı yolu, nitelikli bir onarım aracı seçmektir.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım xls hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com