3 sätt att snabbt radera alla sektionsbrytningar i ditt Word-dokument

I den här artikeln vill vi dela med dig 3 sätt att snabbt radera alla sektionsbrytningar i ditt Word-dokument.

Avsnittsbrytningar är användbara för att skapa flera sektioner i Word-dokument. Så du kan formatera olika sektioner i distinkta stilar. Och här är vår tidigare artikel som du snabbt kan infoga sektionsbrytningar i dokument: 3 sätt att snabbt infoga sektionsbrytningar i ditt Word-dokument

Det är dock ganska vanligt att revidera ett dokument, som att ändra stilar, dela upp sektioner osv. Särskilt om det finns en stor justering att göra, måste du antagligen ta bort alla sektionsbrott. Följande är tre metoder som du kan använda för att ta bort sektionsbrytningar i batch.

Metod 1: Hitta alla sektionsavbrott i dokumentet

1. Först och främst trycker du på "Ctrl + H" för att öppna rutan "Sök och ersätt" i Word.
2. Sätt sedan markören i textrutan "Hitta vad".
3. Klicka på “Mer” -knappen för att få fler alternativ.
4. Klicka sedan på "Special" och välj "Section Break" på dess meny. Då kommer du att se “^ b” i textrutan “Hitta vad”. Så ett alternativt sätt är att ange “^ b” direkt efter steg 2.
5. Slutligen lämna rutan "Ersätt med" tom och klicka på "Ersätt alla". Klicka på ”OK” i bekräftelsesrutan.

Metod 2: Kör en makro för att ta bort alla sektionsbrytningar i ett dokument

Här är det automatiska sättet för dig att bli av med alla oönskade sektionsavbrott.

1. Till att börja med öppnar du VBA-redigeraren i Word genom att trycka på "Alt + F11".
2. Skapa sedan en ny modul genom att klicka på “Normal”.
3. Klicka sedan på "Infoga" och välj "Modul".
4. Öppna nu modulen med dubbelklick.
5. Klistra in följande koder i kodutrymmet på höger sida:

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. Klicka slutligen på "Kör".

Du hittar alla sektionsbrytningar ingenstans på en sekund.

Metod 3: Ta bort alla sektionsavbrott i flera dokument

På samma sätt måste vi köra ett makro om vi vill göra det på ett snabbt och smutsigt sätt.

1. Lägg först alla måldokument i en mapp.
2. Installera sedan ett makro med stegen i metod 2.
3. Kör det här makrot istället:

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älj sedan den mapp som du sparar dokument i "Bläddra" -fönstret.
5. Sist men inte minst, klicka på “OK”.

Förbered dig på dataförlust

Normalt sett, med goda vanor, lycka till och allt gott, kan man uppnå mycket i Word. Men krascher kan drabba en när som helst. Därför är det av avgörande betydelse att säkerhetskopiera dokument regelbundet. Med en säkerhetskopia till hands kommer du att vara mer säker innan du börjar. docx fix.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xls-återställning och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com