Word Belgenizdeki İstenmeyen Sayfa Sonlarını Kaldırmak İçin 4 Hızlı Yöntem

Bu yazımızda, Word belgenizdeki istenmeyen sayfa sonlarını kaldırmak için 4 hızlı yöntemi tanıtacağız.

Word, bir sayfadan diğerine geçerken otomatik olarak sayfa sonu ekler. Bunun yanı sıra, metin aralığının sonundan sonra manuel sayfa sonu da ekleyebilirsiniz. Bu durumda metin bir sonraki sayfanın en üstünden başlayacaktır. Manuel sayfa sonu ekleme hakkında bilgi için şu makaleye bakabilirsiniz: Sayfa Sonlarını Word Belgenize Hızlıca Eklemenin 5 Yolu

Ancak, otomatik sayfa sonlarının görünmez olduğunu ve bu nedenle manuel olarak silinemeyeceğini anlamalısınız. Ancak eklenen manuel sayfa sonları yok. Bu nedenle, makalemiz size esas olarak Word belgesindeki istenmeyen manuel sayfa sonlarını kaldırmak için yararlı yaklaşımlar sunacaktır.   

Yöntem 1: Sayfa Sonlarını El İle Kaldır

1. Her şeyden önce, sayfa sonunu görebilmeniz için belgedeki tüm gizli işaretleri ve sembolleri ortaya çıkarmak için “Giriş” sekmesi altındaki “Göster/Gizle” komutunu tıklamanız gerekir.
2. Ardından, bir sayfa sonu seçin ve ondan kurtulmak için "Sil"e basın.
3. Veya bir sayfa sonunun soluna tıklayıp "Sil"e basabilirsiniz.

Yöntem 2: “Bul ve Değiştir” Özelliğini Kullanın

1. Başlamak için, "Bul ve Değiştir" kutusunu tetiklemek için "Ctrl + H" tuşlarına basın.
2. Ardından imleci "Neyi bul" metin kutusunun içine getirin ve "Daha Fazla" sekmesine tıklayın.
3. Daha sonra "Özel"e tıklayın ve o menüden "Manuel Sayfa Sonu"nu seçin.
4. Son olarak, "Şununla değiştir" kutusunu boş bırakın ve belgedeki her bir sayfa sonunu kaldırmak için "Tümünü Değiştir"e tıklayın.

Yöntem 3: Bir Belgedeki Tüm Sayfa Sonlarını Silmek için Makro Çalıştırın

1. Öncelikle, "Alt + F11" tuşlarına basarak Word'de VBA düzenleyicisini tetikleyin.
2. Ardından, sol sütundaki "Normal" projesine tıklayın.
3. Ardından menü çubuğundaki “Ekle”ye tıklayın ve “Modül”ü seçin.
4. Modülü çift tıklayarak açın ve aşağıdaki kodları buraya yapıştırın:

Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub

5. Son olarak, kodları çalıştırmak için “F5” e basın.

Yöntem 4: Bir Klasördeki Tüm Belgelerdeki Tüm Sayfa Sonlarını Sil

Bir klasördeki tüm belgelerdeki tüm sayfa sonlarını kaldırmak için bu yöntemi kullanabilirsiniz.

1. Bir makro yüklemek ve çalıştırmak için yöntem 3'teki adımlara başvurabilirsiniz.
2. Ve aşağıdaki bu makro ile değiştirmeyi unutmayın:

Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
 
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

Makro, "Gözat" penceresini açacaktır. Hedef belgelerinizi içeren bir klasör seçin ve devam etmek için "Tamam"ı tıklayın.

Veri Felaketine Hazırlanın

Birçoğunuz veri kaybının rastgele olduğunun farkındasınızdır. Word kullanıcılarının herhangi bir veri felaketine karşı hazırlıklı olmaları da önerilir. Ve en iyi yollardan biri, docx onarımı aracı önceden.

Yazar Tanıtımı:

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