3 Möglichkeiten zum schnellen Löschen aller Abschnittswechsel in Ihrem Word-Dokument

In diesem Artikel möchten wir Ihnen drei Möglichkeiten vorstellen, wie Sie schnell alle Abschnittswechsel in Ihrem Word-Dokument löschen können.

Abschnittswechsel sind nützlich, um mehrere Abschnitte in Word-Dokumenten zu erstellen. So können Sie verschiedene Abschnitte in unterschiedlichen Stilen formatieren. Und hier ist unser vorheriger Artikel, in dem Sie schnell Abschnittswechsel in das Dokument einfügen können: 3 Möglichkeiten zum schnellen Einfügen von Abschnittsumbrüchen in Ihr Word-Dokument

Es ist jedoch durchaus üblich, ein Dokument zu überarbeiten, z. B. Stile zu ändern, Abschnitte neu zu unterteilen usw. Insbesondere wenn eine große Anpassung vorgenommen werden muss, müssen Sie wahrscheinlich alle Abschnittsumbrüche entfernen. Im Folgenden finden Sie drei Methoden, mit denen Sie Abschnittswechsel im Stapel löschen können.

Methode 1: Alle Abschnittswechsel im Dokument finden

1. Drücken Sie zunächst „Strg + H“, um das Feld „Suchen und Ersetzen“ in Word zu öffnen.
2. Setzen Sie als nächstes den Cursor in das Textfeld „Find what“.
3. Klicken Sie auf die Schaltfläche "Mehr", um weitere Optionen zu erhalten.
4. Klicken Sie dann auf "Spezial" und wählen Sie "Abschnittswechsel" in seinem Menü. Dann sehen Sie "^ b" im Textfeld "Find what". Eine alternative Möglichkeit besteht darin, "^ b" direkt nach Schritt 2 einzugeben.
5. Lassen Sie das Feld "Ersetzen durch" leer und klicken Sie auf "Alle ersetzen". Klicken Sie im Bestätigungsfeld auf "OK".

Methode 2: Führen Sie ein Makro aus, um alle Abschnittswechsel in einem Dokument zu löschen

Hier ist die automatische Methode, mit der Sie alle unerwünschten Abschnittswechsel entfernen können.

1. Öffnen Sie zunächst den VBA-Editor in Word, indem Sie auf „Alt + F11“ klicken.
2. Erstellen Sie dann ein neues Modul, indem Sie auf "Normal" klicken.
3. Klicken Sie anschließend auf "Einfügen" und wählen Sie "Modul".
4. Öffnen Sie nun das Modul mit einem Doppelklick.
5. Fügen Sie im Codierungsbereich auf der rechten Seite die folgenden Codes ein:

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. Klicken Sie abschließend auf "Ausführen".

Sie finden alle Abschnittswechsel nirgendwo in einer Sekunde.

Methode 3: Löschen Sie alle Abschnittswechsel in mehreren Dokumenten

Ebenso müssen wir ein Makro ausführen, wenn wir es schnell und schmutzig machen wollen.

1. Als Erstes sollten alle Zieldokumente in einem Ordner abgelegt werden.
2. Installieren Sie dann ein Makro mit den Schritten in Methode 2.
3. Führen Sie stattdessen dieses Makro aus:

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. Wählen Sie als Nächstes im geöffneten Fenster "Durchsuchen" den Ordner aus, in dem Sie Dokumente speichern möchten.
5. Klicken Sie zu guter Letzt auf "OK".

Bereiten Sie sich auf Datenverlust vor

Mit guter Arbeitsgewohnheit, etwas Glück und den richtigen Voraussetzungen lässt sich in Word normalerweise viel erreichen. Doch Abstürze können jederzeit auftreten. Daher ist es unerlässlich, Dokumente regelmäßig zu sichern. Mit einer Sicherungskopie in der Hand können Sie beruhigter mit der Arbeit beginnen. docx beheben.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich xls Wiederherstellung und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX