4 hurtige metoder til fjernelse af uønskede sidepauser i dit Word-dokument

I dette indlæg vil vi fokusere på at introducere 4 hurtige metoder til at fjerne uønskede sideskift i dit Word-dokument.

Word indsætter automatisk sideskift, når det hopper fra en side til den næste. Derudover kan du indsætte manuelt sideskift efter slutningen af ​​et tekstområde. Så starter teksten øverst på den næste side. For at få oplysninger om, hvordan du indsætter manuelt sideskift, kan du se denne artikel: 5 måder at hurtigt indsætte sideskift i dit Word-dokument

Du bør dog forstå, at automatiske sideskift er usynlige og derfor ikke kan slettes manuelt. Men de manuelle sideskift indsat gør. Så vores artikel vil hovedsageligt tilbyde dig nyttige tilgange til at fjerne uønskede manuelle sideskift i Word-dokument.   

Metode 1: Fjern sideafbrydelser manuelt

1. Først og fremmest skal du klikke på kommandoen "Vis / skjul" under fanen "Hjem" for at afsløre alle skjulte mærker og symboler i dokumentet, så du kan se sideskiftet.
2. Vælg derefter et sideskift og tryk på "Slet" for at slippe af med det.
3. Eller du kan klikke til venstre for et sideskift og derefter trykke på "Slet".

Metode 2: Brug funktionen "Find og erstat"

1. Til at begynde med skal du trykke på "Ctrl + H" for at udløse feltet "Find og erstat".
2. Placer derefter markøren i tekstfeltet "Find hvad", og klik på fanen "Mere".
3. Klik derefter på "Speciel" og vælg "Manuel sideskift" i den menu.
4. Til sidst skal du lade feltet "Erstat med" være tomt og klikke på "Erstat alt" for at fjerne hvert sideskift i dokumentet.

Metode 3: Kør makro for at slette alle sideskift i et dokument

1. Først skal du udløse VBA-editor i Word ved at trykke på "Alt + F11".
2. Klik derefter på “Normal” -projektet i venstre kolonne.
3. Klik derefter på "Indsæt" i menulinjen, og vælg "Modul".
4. Åbn modulet med dobbeltklik og indsæt følgende koder der:

Sub DeleteAllPageBreaksInOneDoc()
  Application.ScreenUpdating = False
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^m"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
    End With
  End With
  MsgBox ("All manual page breaks in the document have been removed!")
 
  Application.ScreenUpdating = True
End Sub

5. Endelig skal du trykke på "F5" for at udføre koder.

Metode 4: Slet alle sideskift i alle dokumenter i en mappe

For at fjerne alle sideskift i alle dokumenter i en mappe kan du bruge denne metode.

1. For at installere og køre en makro kan du se trin i metode 3.
2. Og husk at erstatte med denne makro nedenfor:

Sub DeleteAllPageBreaksInAFolder()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Application.ScreenUpdating = False
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      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 = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
      End With
    End With
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
  Application.ScreenUpdating = True
End Sub

Makroen skal udløse "Gennemse"-vinduet. Vælg en mappe, der indeholder dine måldokumenter, og klik på "OK" for at fortsætte.

Forbered dig på datakatastrofe

Mange af jer har været opmærksomme på tilfældigheden af ​​datatab. For Word-brugere anbefales det også at være godt forberedt på enhver datakatastrofe. Og en af ​​de bedste måder er at få en docx reparation værktøj på forhånd.

Forfatter Introduktion:

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