Word sənədinizdə arzuolunmaz səhifə fasilələrini aradan qaldırmaq üçün 4 sürətli üsul

Bu yazıda, Word sənədinizdə istənməyən səhifə fasilələrini aradan qaldırmağın 4 sürətli üsulunu sizə təqdim edəcəyik.

Word bir səhifədən digərinə keçdikdə avtomatik səhifə sonluğu əlavə edir. Bundan əlavə, mətn diapazonunun sonundan sonra əl ilə səhifə sonluğu əlavə edə bilərsiniz. Sonra mətni növbəti səhifənin yuxarısından başlayacaqsınız. Əl ilə səhifə sonluğunu necə əlavə etmək barədə bu məqaləyə müraciət edə bilərsiniz: Səhifə sonlarını Word sənədinizə tez daxil etməyin 5 yolu

Bununla belə, avtomatik səhifə fasilələrinin görünməz olduğunu və buna görə də əl ilə silinə bilməyəcəyini başa düşməlisiniz. Amma manual səhifə fasilələri daxil edin. Beləliklə, məqaləmiz əsasən Word sənədində istənməyən əllə səhifə fasilələrini aradan qaldırmaq üçün faydalı yanaşmalar təklif edəcəkdir.   

Metod 1: Səhifə fasilələrini əl ilə silin

1. İlk növbədə, sənəddəki bütün gizli işarələri və simvolları aşkar etmək üçün "Ev" sekmesinin altındakı "Göstər/Gizlət" əmrini sıxmalısınız ki, səhifə sonunu görə biləsiniz.
2. Sonra, bir səhifə sonu seçin və ondan xilas olmaq üçün "Sil" düyməsini basın.
3. Və ya səhifə fasiləsinin soluna klikləyib sonra “Sil” düyməsini sıxa bilərsiniz.

Metod 2: "Tap və dəyişdir" funksiyasından istifadə edin

1. Başlamaq üçün "Tap və dəyişdir" qutusunu işə salmaq üçün "Ctrl + H" düyməsini basın.
2. Sonra kursoru "Nə tapın" mətn qutusuna qoyun və "Daha çox" sekmesini vurun.
3. Sonra "Xüsusi" düyməsini klikləyin və həmin menyuda "Əllə Səhifə Sonu"nu seçin.
4. Nəhayət, "Əvəz et" qutusunu boş buraxın və sənəddəki hər bir səhifə fasiləsini aradan qaldırmaq üçün "Hamısını dəyişdir" düyməsini basın.

Metod 3: Sənəddəki bütün səhifə fasilələrini silmək üçün makro işə salın

1. Əvvəlcə “Alt+ F11” düymələrini basaraq Word-də VBA redaktorunu işə salın.
2. Sonra sol sütunda "Normal" layihəsinə klikləyin.
3. Sonra menyu çubuğunda "Daxil et" düyməsini basın və "Modul" seçin.
4. Modulu iki kliklə açın və aşağıdakı kodları ora yapışdı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. Nəhayət, kodları yerinə yetirmək üçün "F5" düyməsini basın.

Metod 4: Qovluqdakı bütün sənədlərdəki bütün səhifə fasilələrini silin

Qovluqdakı bütün sənədlərdəki bütün səhifə fasilələrini silmək üçün bu üsuldan istifadə edə bilərsiniz.

1. Makronu quraşdırmaq və işə salmaq üçün siz 3-cü üsuldakı addımlara müraciət edə bilərsiniz.
2. Və aşağıda bu makro ilə əvəz etməyi 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özdən keçir" pəncərəsini işə salacaq. Hədəf sənədlərinizin yerləşdiyi bir qovluq seçin və davam etmək üçün "OK" düyməsini basın.

Data fəlakətinə hazır olun

Çoxlarınız məlumat itkisinin təsadüfi olduğunu bilirsiniz. Word istifadəçiləri üçün istənilən məlumat fəlakətinə yaxşı hazırlaşmaq məsləhətdir. Ən yaxşı yollardan biri də əldə etməkdir docx təmiri əvvəlcədən alət.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xlsx bərpası və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com