4 raske metoder for å fjerne uønskede sideskift i Word-dokumentet ditt

I dette innlegget vil vi fokusere på å introdusere fire raske metoder for å fjerne uønskede sideskift i Word-dokumentet ditt.

Word setter inn automatisk sideskift når det hopper fra én side til den neste. I tillegg kan du sette inn manuelt sideskift etter slutten av et tekstområde. Da starter teksten øverst på neste side. For hvordan du setter inn manuelt sideskift, kan du se denne artikkelen: 5 måter å raskt sette inn sidebrudd i Word-dokumentet ditt

Du bør imidlertid forstå at automatiske sideskift er usynlige og derfor ikke kan slettes manuelt. Men de manuelle sideskiftene som er satt inn gjør det. Så artikkelen vår vil hovedsakelig tilby deg nyttige tilnærminger for å fjerne uønskede manuelle sideskift i Word-dokument.   Fjern uønskede sideskift i Word-dokumentet ditt

Metode 1: Fjern sideskift manuelt

  1. Først av alt må du klikke på "Vis/skjul"-kommandoen under "Hjem"-fanen for å avsløre alle skjulte merker og symboler i dokumentet slik at du kan se sideskiftet.
  2. Velg deretter et sideskift og trykk "Slett" for å bli kvitt det.
  3. Eller du kan klikke til venstre for et sideskift og deretter trykke "Slett".Velg Sideskift -> Trykk "Slett"

Metode 2: Bruk "Finn og erstatt"-funksjonen

  1. Til å begynne med, trykk "Ctrl + H" for å utløse "Finn og erstatt"-boksen.
  2. Plasser deretter markøren i "Finn hva"-tekstboksen og klikk på "Mer"-fanen.
  3. Klikk deretter på "Spesial" og velg "Manuell sideskift" på den menyen.Klikk "Spesial"->Velg "Manuell sideskift"
  4. Til slutt lar du "Erstatt med"-boksen stå tom og klikker på "Erstatt alle" for å fjerne hvert sideskift i dokumentet.

Metode 3: Kjør makro for å slette alle sideskift i et dokument

  1. Først utløser du VBA-editor i Word ved å trykke "Alt + F11".
  2. Klikk deretter på "Normal" prosjekt i venstre kolonne.
  3. Klikk deretter "Sett inn" på menylinjen og velg "Modul".Klikk "Normal" -> Klikk "Sett inn" -> Klikk "Modul"
  4. Åpne modulen med dobbeltklikk og lim inn 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
  1. Til slutt, trykk "F5" for å utføre koder.Lim inn koder-> Klikk "Kjør"

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

For å fjerne alle sideskift i alle dokumenter i en mappe, kan du bruke denne metoden.

  1. For å installere og kjøre en makro, kan du se trinnene i metode 3.
  2. Og husk å erstatte med denne makroen 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 utløse «Bla gjennom»-vinduet. Velg en mappe som inneholder måldokumentene dine, og klikk på «OK» for å fortsette.

Forbered deg på datakatastrofe

Mange av dere har vært klar over tilfeldighetene ved tap av data. For Word-brukere er det også tilrådelig å være godt forberedt på datakatastrofer. Og en av de beste måtene er å få en docx reparasjon verktøy på forhånd.

Forfatterintroduksjon:

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

Kommentarer er stengt.