4 nopeaa tapaa poistaa ei-toivotut sivumurtumat Word-asiakirjastasi

Tässä artikkelissa esittelemme neljä nopeaa tapaa poistaa ei-toivotut sivunvaihdot Word-dokumentistasi.

Word lisää automaattisen sivunvaihdon, kun se siirtyy sivulta toiselle. Voit myös lisätä manuaalisen sivunvaihdon tekstialueen loppuun. Tällöin teksti alkaa seuraavan sivun yläreunasta. Katso ohjeet manuaalisen sivunvaihdon lisäämiseen tästä artikkelista: 5 tapaa lisätä sivunvaihdot nopeasti Word-asiakirjaasi

Sinun tulee kuitenkin ymmärtää, että automaattiset sivunvaihdot ovat näkymättömiä, eikä niitä siksi voi poistaa manuaalisesti. Mutta manuaalisesti lisätyt sivunvaihdot tekevät niin. Joten artikkelimme tarjoaa sinulle pääasiassa hyödyllisiä tapoja poistaa ei-toivotut manuaaliset sivunvaihdot Word-asiakirjassa.   Poista ei-toivotut sivunvaihdot Word-asiakirjastasi

Tapa 1: Poista sivunvaihdot manuaalisesti

  1. Ensinnäkin, sinun on napsautettava "Näytä/piilota" -komentoa "Home"-välilehdellä paljastaaksesi kaikki piilotetut merkit ja symbolit asiakirjassa, jotta voit tarkastella sivunvaihtoa.
  2. Valitse seuraavaksi sivunvaihto ja paina "Poista" päästäksesi eroon siitä.
  3. Tai voit napsauttaa sivunvaihdon vasemmalla puolella ja painaa sitten "Poista".Valitse sivunvaihto -> paina "Poista"

Tapa 2: Käytä Etsi ja korvaa -ominaisuutta

  1. Aloita painamalla "Ctrl + H" käynnistääksesi "Etsi ja korvaa" -ruudun.
  2. Aseta sitten kohdistin "Etsi mitä" -tekstiruutuun ja napsauta "Lisää" -välilehteä.
  3. Napsauta seuraavaksi "Erikois" ja valitse "Manuaalinen sivunvaihto" kyseisestä valikosta.Napsauta "Erikois" -> Valitse "Manuaalinen sivunvaihto"
  4. Lopuksi jätä "Korvaa" -ruutu tyhjäksi ja napsauta "Korvaa kaikki" poistaaksesi jokaisen sivunvaihdon asiakirjasta.

Tapa 3: Suorita makro poistaaksesi kaikki sivunvaihdot asiakirjasta

  1. Ensinnäkin käynnistä VBA-editori Wordissa painamalla "Alt + F11".
  2. Napsauta sitten vasemmassa sarakkeessa “Normaali” -projektia.
  3. Napsauta sitten valikkoriviltä "Lisää" ja valitse "Moduuli".Napsauta "Normaali" -> Napsauta "Lisää" -> Napsauta "Moduuli"
  4. Avaa moduuli kaksoisnapsauttamalla ja liitä siihen seuraavat koodit:
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. Lopuksi paina "F5" suorittaaksesi koodit.Liitä koodit-> Napsauta "Suorita"

Tapa 4: Poista kaikki sivunvaihdot kansion kaikista asiakirjoista

Voit poistaa kaikki sivunvaihdot kansion kaikista asiakirjoista käyttämällä tätä menetelmää.

  1. Jos haluat asentaa ja suorittaa makron, katso vaiheet menetelmässä 3.
  2. Ja muista korvata tämä alla olevalla makrolla:
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

Makron pitäisi käynnistää ”Selaa”-ikkuna. Valitse kansio, joka sisältää kohdetiedostosi, ja jatka napsauttamalla ”OK”.

Valmistaudu Data Disasteriin

Monet teistä ovat olleet tietoisia tietojen katoamisen satunnaisuudesta. Wordin käyttäjille on myös suositeltavaa valmistautua hyvin kaikkiin tietokatastrofeihin. Ja yksi parhaista tavoista on saada a docx-korjaus työkalu etukäteen.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xlsx-palautus ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com

Kommenttien lisääminen on estetty.