3 načina za brzo brisanje svih prijeloma odjeljaka u vašem Word dokumentu

U ovom članku želimo s vama podijeliti 3 načina za brzo brisanje svih prijeloma odjeljaka u vašem Word dokumentu.

Prijelomi odjeljaka korisni su u stvaranju više odjeljaka u Word dokumentu. Tako možete oblikovati različite odjeljke u prepoznatljivim stilovima. A evo našeg prethodnog članka za brzo umetanje prijeloma odjeljaka u dokument: 3 načina za brzo umetanje prijeloma odjeljaka u vaš Word dokument

Međutim, prilično je uobičajeno revidirati dokument, kao što je promjena stilova, ponovna podjela odjeljaka, itd. Posebno, ako treba izvršiti veliku prilagodbu, vjerojatno ćete morati ukloniti sve prijelome odjeljaka. Slijede 3 metode koje možete upotrijebiti za brisanje prijeloma odjeljaka u seriji.

1. metoda: pronađite sve prijelome odjeljaka u dokumentu

1. Prije svega pritisnite "Ctrl + H" da biste otvorili okvir "Pronađi i zamijeni" u programu Word.
2. Zatim stavite pokazivač u okvir za tekst "Pronađi što".
3. Kliknite gumb "Više" za više mogućnosti.
4. Zatim kliknite "Special" i na njegovom izborniku odaberite "Break Break". Tada ćete u tekstnom okviru "Pronaći što" vidjeti "^ b". Dakle, alternativni način je unos "^ b" neposredno nakon koraka 2.
5. Na kraju, ostavite prazan okvir "Zamijeni s" i kliknite "Zamijeni sve". Kliknite "U redu" na okviru za potvrdu.

2. metoda: Pokrenite makronaredbu za brisanje svih preloma odjeljaka u jednom dokumentu

Evo automatskog načina da se riješite svih neželjenih prijeloma odjeljaka.

1. Za početak otvorite VBA editor u Wordu pritiskom na "Alt + F11".
2. Zatim stvorite novi modul klikom na „Normalno“.
3. Zatim kliknite "Umetni" i odaberite "Modul".
4. Sada otvorite modul dvostrukim klikom.
5. U prostor za kodiranje s desne strane zalijepite sljedeće kodove:

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. Na kraju kliknite "Pokreni".

Sve prijelome odjeljaka nećete pronaći nigdje u sekundi.

3. metoda: Izbrišite sve prijelome odjeljaka u više dokumenata

Slično tome, moramo pokrenuti makronaredbu ako to želimo učiniti na brz i prljav način.

1. Prije svega, stavite sve ciljne dokumente u jednu mapu.
2. Zatim instalirajte makronaredbu s koracima iz metode 2.
3. Umjesto toga pokrenite ovu makronaredbu:

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. Dalje u otvorenom prozoru "Pregledaj" odaberite mapu u koju spremate dokumente.
5. Posljednje, ali ne najmanje važno, kliknite "U redu".

Pripremite se za gubitak podataka

Normalno, uz dobru naviku korištenja, sreću i sve blagoslove, možete puno postići u Wordu. Ali pad sustava može vas pogoditi u bilo kojem trenutku. Stoga je od vitalne važnosti redovito izrađivati ​​sigurnosne kopije dokumenata. Sa sigurnosnom kopijom pri ruci bit ćete sigurniji prije nego što započnete docx popraviti.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls oporavak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com