3 måter å raskt slette alle seksjonsskift i Word-dokumentet ditt

I denne artikkelen ønsker vi å dele med deg 3 måter å raskt slette alle seksjonsskift i Word-dokumentet ditt.

Seksjonsskift er nyttige for å lage flere seksjoner i Word-dokumenter. Så du kan formatere forskjellige seksjoner i særegne stiler. Og her er vår forrige artikkel slik at du raskt kan sette inn seksjonsskift i dokumentet: 3 måter å raskt sette inn seksjonsbrudd i Word-dokumentet ditt

Det er imidlertid ganske vanlig å revidere et dokument, for eksempel å endre stiler, dele inn seksjoner på nytt, osv. Spesielt hvis det er en stor justering å gjøre, må du sannsynligvis fjerne alle seksjonsbrudd. Følgende er 3 metoder du kan bruke for å slette seksjonsskift i batch.

Metode 1: Finn alle seksjonsbrudd i dokumentet

1. Først og fremst trykker du "Ctrl + H" for å åpne "Finn og erstatt" -boksen i Word.
2. Sett deretter markøren i tekstfeltet "Finn hva".
3. Klikk på “Mer” -knappen for å få flere alternativer.
4. Klikk deretter på "Spesiell" og velg "Seksjonsskift" på menyen. Så vil du se “^ b” i “Finn hva” tekstboksen. Så en alternativ måte er å angi “^ b” rett etter trinn 2.
5. Til slutt, la feltet "Erstatt med" være tomt og klikke "Erstatt alle". Klikk "OK" i bekreftelsesboksen.

Metode 2: Kjør en makro for å slette alle seksjonsbrudd i ett dokument

Her er den automatiske måten for deg å kvitte deg med alle uønskede seksjonsbrudd.

1. Til å begynne med åpner du VBA-editoren i Word ved å trykke "Alt + F11".
2. Opprett deretter en ny modul ved å klikke “Normal”.
3. Klikk deretter på "Sett inn" og velg "Modul".
4. Åpne nå modulen med dobbeltklikk.
5. Lim inn følgende koder i kodingsområdet på høyre 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. Til slutt klikker du på "Kjør".

Du finner alle seksjonsbrudd ingen steder i løpet av et sekund.

Metode 3: Slett alle seksjonsbrudd i flere dokumenter

På samme måte må vi kjøre en makro hvis vi vil gjøre det på en rask og skitten måte.

1. Først av alt, legg alle måldokumentene i én mappe.
2. Installer deretter en makro med trinn i metode 2.
3. Kjør denne makroen 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. Neste i vinduet "Bla gjennom" velger du mappen du lagrer dokumenter i.
5. Sist men ikke minst, klikk “OK”.

Bli forberedt på datatap

Normalt sett, med god bruksvane, lykke til og alt mulig annet, kan du oppnå mye i Word. Men krasj kan ramme deg når som helst. Derfor er det avgjørende å sikkerhetskopiere dokumenter regelmessig. Med en sikkerhetskopi i hånden vil du være tryggere før du starter. docx fikse.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls gjenoppretting og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med