3 načina da brzo izbrišete sve prijelome odjeljaka u vašem Word dokumentu

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

Prelomi sekcija su korisni za kreiranje više sekcija u Word dokumentu. Tako možete formatirati različite odjeljke u karakterističnim stilovima. A evo našeg prethodnog članka za brzo umetanje prijeloma odjeljaka u dokument: 3 načina da brzo umetnete prelome odjeljka u Word dokument

Međutim, prilično je uobičajeno revidirati dokument, kao što je promjena stilova, ponovna podjela odjeljaka, itd. Posebno, ako je potrebno izvršiti veliko prilagođavanje, vjerovatno ćete morati ukloniti sve prijelome odjeljaka. Slijede 3 metode koje možete koristiti za brisanje prijeloma odjeljka u paketu.

1. metod: Pronađite sve prelome odjeljaka u dokumentu

1. Prvo, pritisnite „Ctrl + H“ da biste otvorili okvir „Pronađi i zamijeni“ u programu Word.
2. Dalje stavite kursor u okvir za tekst "Pronađi šta".
3. Kliknite gumb „Više“ da biste dobili više opcija.
4. Zatim kliknite „Special“ i na njegovom izborniku odaberite „Break Break“. Tada ćete vidjeti tekst "^ b" u okviru za pronalaženje ". Dakle, alternativni način je unos “^ b” direktno nakon koraka 2.
5. Na kraju, ostavite polje „Zamijeni sa“ praznim i kliknite „Zamijeni sve“. Kliknite "OK" u polju za potvrdu.

2. metod: Pokrenite makronaredbu za brisanje svih preloma sekcija 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. Sljedeće 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 prelome odjeljaka nećete pronaći nigdje u sekundi.

3. metod: Izbrišite sve prelome odjeljaka u više dokumenata

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

1. Prije svega, sve ciljne dokumente stavite u jednu mapu.
2. Zatim instalirajte makronaredbu s koracima iz metode 2.
3. Umjesto toga pokrenite ovaj 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 ćete spremiti dokumente.
5. Na kraju, 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 mnogo postići u Wordu. Ali kvarovi vas mogu zadesiti u bilo kojem trenutku. Stoga je od vitalne važnosti redovno praviti sigurnosne kopije dokumenata. Sa sigurnosnom kopijom pri ruci, bit ćete sigurniji prije nego što započnete docx fix.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls recovery i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com