Word sənədinizdəki bütün bölmə fasilələrini tez silməyin 3 yolu

Bu yazıda Word sənədinizdəki bütün bölmə fasilələrini tez silməyin 3 yolunu sizinlə bölüşmək istəyirik.

Bölmə fasilələri Word sənədində bir neçə bölmə yaratmaq üçün faydalıdır. Beləliklə, fərqli bölmələri fərqli üslublarda formatlaya bilərsiniz. Sənədə bölmə fasilələrini tez bir zamanda daxil etmək üçün əvvəlki məqaləmiz budur: Word Sənədinizə Bölmə Bölmələrini Tez Yerləşdirməyin 3 Yolu

Bununla belə, üslubların dəyişdirilməsi, bölmələrin yenidən bölünməsi və s. kimi sənədə yenidən baxılması olduqca yaygındır. Xüsusilə, böyük bir düzəliş etmək olarsa, yəqin ki, bütün bölmələrin fasilələrini silməli olacaqsınız. Aşağıda topluda bölmə fasilələrini silmək üçün istifadə edə biləcəyiniz 3 üsul var.

Metod 1: Sənəddə Bütün Bölmə Fasilələrini tapın

1. Hər şeydən əvvəl Worddə "Tap və dəyişdir" qutusunu açmaq üçün "Ctrl + H" düymələrini basın.
2. Sonra “Nəyi tapın” mətn qutusuna imleci qoyun.
3. Daha çox seçim əldə etmək üçün "Daha çox" düyməsini vurun.
4. Sonra "Xüsusi" düyməsini basın və menyusundan "Bölmə Arası" nı seçin. Sonra "Tapın nə" mətn qutusunda "^ b" yazısını görəcəksiniz. Buna görə alternativ yol, addım 2-dən sonra birbaşa “^ b” -ə daxil olmaqdır.
5. Sonda “Əvəz et” qutusunu boş qoyun və “Hamısını dəyişdir” düyməsini basın. Təsdiq qutusuna "OK" düyməsini vurun.

Metod 2: Bir Sənəddə Bütün Bölmə Sonlarını Silmək üçün Makro Çalıştırın

Budur, istənməyən bölmə fasilələrindən qurtulmağın avtomatik yolu.

1. Başlamaq üçün “Alt + F11” düyməsini basaraq Word-də VBA redaktorunu açın.
2. Sonra “Normal” düyməsini basaraq yeni bir modul yaradın.
3. Sonra "Taxmaq" düyməsini basın və "Modul" u seçin.
4. İndi cüt kliklə modulu açın.
5. Sağ tərəfdəki kodlama boşluğuna aşağıdakı kodları yapışdırın:

Sub DeleteAllSectionsInOneDoc()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^b"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
End Sub

6. Nəhayət, "Çalıştır" düyməsini basın.

Bütün bölüm fasilələrini saniyədə heç bir yerdə tapa bilməzsiniz.

Metod 3: Birdən çox sənəddə bütün bölmə fasilələrini silin

Eynilə, sürətli və çirkli bir şəkildə etmək istəyiriksə bir makro çalıştırmalıyıq.

1. Hər şeydən əvvəl, bütün hədəf sənədləri bir qovluğa qoyun.
2. Sonra metod 2-dəki addımlarla bir makrosu quraşdırın.
3. Bunun əvəzinə bu makrosu işə salın:

Sub DeleteAllSectionBreaksInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      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 = "^b"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
    End With
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Sonra “Gözdən keçir” pəncərəsində sənədləri saxladığınız qovluğu seçin.
5. Nəhayət, ən azı deyil, “Tamam” düyməsini basın.

Məlumat itkisinə hazırlaşın

Adətən, yaxşı işləmə vərdişi, uğurlar və bütün nemətlərlə Word-də çox şeyə nail ola bilərsiniz. Lakin istənilən vaxt qəzalar baş verə bilər. Buna görə də sənədlərin müntəzəm olaraq ehtiyat nüsxəsini çıxarmaq çox vacibdir. Əlinizdə ehtiyat nüsxə varsa, işə başlamazdan əvvəl daha inamlı olacaqsınız. docx düzəliş.

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 xls bərpası və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com