3 manieren om snel alle sectie-einden in uw Word-document te verwijderen

In dit artikel willen we 3 manieren met u delen om snel alle sectie-einden in uw Word-document te verwijderen.

Sectie-einden zijn handig bij het maken van meerdere secties in een Word-document. U kunt dus verschillende secties in onderscheidende stijlen opmaken. En hier is ons vorige artikel om snel sectie-einden in een document in te voegen: 3 manieren om snel sectie-einden in uw Word-document in te voegen

Het is echter vrij gebruikelijk om een ​​document te herzien, zoals het wijzigen van stijlen, het opnieuw verdelen van secties, enz. Vooral als er een grote aanpassing moet worden gemaakt, zult u waarschijnlijk alle sectie-einden moeten verwijderen. Hieronder volgen drie methoden die u kunt gebruiken om sectie-einden in batch te verwijderen.

Methode 1: Zoek alle sectie-einden in het document

1. Druk allereerst op "Ctrl + H" om het vak "Zoeken en vervangen" in Word te openen.
2. Plaats vervolgens de cursor in het tekstvak "Zoeken naar".
3. Klik op de knop "Meer" om meer opties te krijgen.
4. Klik vervolgens op "Speciaal" en kies "Sectie-einde" in het menu. Vervolgens ziet u "^ b" in het tekstvak "Zoeken naar". Een alternatieve manier is om "^ b" direct na stap 2 in te voeren.
5. Laat tot slot het vak "Vervangen door" leeg en klik op "Alles vervangen". Klik op "OK" in het bevestigingsvenster.

Methode 2: voer een macro uit om alle sectie-einden in één document te verwijderen

Hier is de automatische manier om alle ongewenste sectie-einden te verwijderen.

1. Open om te beginnen de VBA-editor in Word door op "Alt + F11" te drukken.
2. Maak vervolgens een nieuwe module door op "Normaal" te klikken.
3. Klik vervolgens op "Invoegen" en selecteer "Module".
4. Open nu module met dubbelklik.
5. Plak in de coderingsruimte aan de rechterkant de volgende codes:

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. Klik ten slotte op "Uitvoeren".

U vindt alle sectie-einden nergens in een seconde.

Methode 3: Verwijder alle sectie-einden in meerdere documenten

Evenzo moeten we een macro uitvoeren als we het op een snelle en vuile manier willen doen.

1. Plaats allereerst alle betreffende documenten in één map.
2. Installeer vervolgens een macro met stappen in methode 2.
3. Voer in plaats daarvan deze macro uit:

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. Selecteer vervolgens in het geopende venster "Bladeren" de map waarin u de documenten opslaat.
5. Klik als laatste maar niet de minste op "OK".

Bereid u voor op gegevensverlies

Normaal gesproken kun je met de juiste werkwijze, een beetje geluk en alle mogelijke zegeningen veel bereiken in Word. Maar crashes kunnen je op elk moment overkomen. Daarom is het van cruciaal belang om regelmatig een back-up van je documenten te maken. Met een back-up bij de hand begin je vol vertrouwen aan de slag. docx-oplossing.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xls herstel en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com