3 způsoby, jak rychle odstranit všechna zalomení sekcí v dokumentu Word

V tomto článku s vámi chceme sdílet 3 způsoby, jak rychle odstranit všechny konce sekcí v dokumentu Word.

Konce sekcí jsou užitečné při vytváření více sekcí v dokumentu Word. Můžete tedy naformátovat různé sekce v charakteristických stylech. A tady je náš předchozí článek, kde můžete rychle vložit konce sekcí do dokumentu: 3 způsoby, jak rychle vložit konce sekcí do dokumentu Word

Je však zcela běžné revidovat dokument, jako je změna stylů, nové rozdělení oddílů atd. Zejména pokud je třeba provést velkou úpravu, budete pravděpodobně muset odstranit všechny konce sekcí. Následují 3 metody, které můžete použít k hromadnému odstranění zlomů sekcí.

Metoda 1: Najít všechny konce sekcí v dokumentu

1. Nejprve stisknutím klávesy „Ctrl + H“ otevřete v aplikaci Word pole „Najít a nahradit“.
2. Dále umístěte kurzor do textového pole „Najít co“.
3. Kliknutím na tlačítko „Více“ zobrazíte další možnosti.
4. Poté klikněte na „Speciální“ a v nabídce vyberte „Zlomek sekce“. Poté se v textovém poli „Najít co“ zobrazí „^ b“. Alternativním způsobem je tedy zadání „^ b“ přímo po kroku 2.
5. Nakonec nechte pole „Nahradit“ prázdné a klikněte na „Nahradit vše“. V potvrzovacím poli klikněte na „OK“.

Metoda 2: Spuštění makra k odstranění všech zlomů sekcí v jednom dokumentu

Zde je automatický způsob, jak se zbavit všech nechtěných zlomů sekcí.

1. Nejprve otevřete editor VBA v aplikaci Word stisknutím klávesy „Alt + F11“.
2. Poté vytvořte nový modul kliknutím na „Normální“.
3. Dále klikněte na „Vložit“ a vyberte „Modul“.
4. Nyní modul otevřete dvojitým kliknutím.
5. Do kódovacího prostoru na pravé straně vložte následující kódy:

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. Nakonec klikněte na „Spustit“.

Ve vteřině nenajdete všechny konce sekcí.

Metoda 3: Odstranit všechny konce sekcí ve více dokumentech

Podobně musíme spustit makro, pokud to chceme udělat rychle a špinavě.

1. Především umístěte všechny cílové dokumenty do jedné složky.
2. Poté nainstalujte makro s kroky v metodě 2.
3. Místo toho spusťte toto makro:

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. Dále v otevřeném okně „Procházet“ vyberte složku, do které ukládáte dokumenty.
5. V neposlední řadě klikněte na „OK“.

Připravte se na ztrátu dat

Obvykle s dobrými pracovními návyky, štěstím a veškerým požehnáním můžete ve Wordu dosáhnout mnoha věcí. Ale kdykoli vás může postihnout chyba. Proto je zásadní pravidelně zálohovat dokumenty. Se zálohou po ruce budete mít větší jistotu, než začnete. Oprava docx.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xls zotavení a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com