3 måder til hurtigt at slette alle sektionsbrud i dit Word-dokument

I denne artikel vil vi dele med dig 3 måder til hurtigt at slette alle sektionsskift i dit Word-dokument.

Sektionsskift er nyttige til oprettelse af flere sektioner i Word-dokument. Så du kan formatere forskellige sektioner i markante stilarter. Og her er vores tidligere artikel, som du hurtigt kan indsætte sektionsskift i dokumentet: 3 måder til hurtigt at indsætte sektionsbrud i dit Word-dokument

Det er dog ret almindeligt at revidere et dokument, såsom at ændre typografier, at opdele sektioner osv. Især hvis der er en stor justering at foretage, skal du sandsynligvis fjerne alle sektionsbrud. Følgende er 3 metoder, du kan bruge til at slette sektionsskift i batch.

Metode 1: Find alle sektionsbrud i dokumentet

1. Først og fremmest skal du trykke på "Ctrl + H" for at åbne "Find og erstat" -boksen i Word.
2. Næste sætte markøren inde i "Find hvad" tekstfeltet.
3. Klik på knappen "Mere" for at få flere muligheder.
4. Klik derefter på "Special" og vælg "Section Break" i dens menu. Derefter vil du se “^ b” i tekstfeltet “Find hvad”. Så en alternativ måde er at indtaste “^ b” direkte efter trin 2.
5. Til sidst skal du lade feltet "Erstat med" være tomt og klikke på "Erstat alle". Klik på "OK" i bekræftelsesfeltet.

Metode 2: Kør en makro for at slette alle sektionsbrud i et dokument

Her er den automatiske måde for dig at slippe af med alle uønskede sektionsbrud.

1. Til at begynde med skal du åbne VBA-editor i Word ved at trykke på "Alt + F11".
2. Opret derefter et nyt modul ved at klikke på “Normal”.
3. Klik derefter på "Indsæt" og vælg "Modul".
4. Åbn nu modulet med dobbeltklik.
5. Indsæt følgende koder i kodningsområdet på højre side:

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 til sidst på "Kør".

Du finder alle sektionsbrud ingen steder på et sekund.

Metode 3: Slet alle sektionsbrud i flere dokumenter

På samme måde skal vi køre en makro, hvis vi vil gøre det på en hurtig og beskidt måde.

1. Først og fremmest, læg alle måldokumenter i én mappe.
2. Installer derefter en makro med trin i metode 2.
3. Kør denne makro i stedet:

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. Vælg derefter den mappe, hvor du gemmer dokumenter, i vinduet "Gennemse".
5. Sidst men ikke mindst skal du klikke på “OK”.

Bliv forberedt på datatab

Normalt kan du med god brugsvane, held og lykke og alt det gode ved Word opnå meget. Men nedbrud kan ramme dig når som helst. Derfor er det af afgørende betydning at sikkerhedskopiere dokumenter regelmæssigt. Med en sikkerhedskopi i hånden vil du være mere sikker, inden du starter. docx-rettelse.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xls opsving og pdf produkter til reparation af software. For mere information besøg www.datanumen.com