4 ātras metodes nevēlamu lapu pārtraukumu noņemšanai jūsu Word dokumentā

Šajā ierakstā mēs pievērsīsimies 4 ātrām metodēm, kā noņemt nevēlamus lappušu pārtraukumus Word dokumentā.

Word ievieto automātisku lappuses pārtraukumu, pārejot no vienas lappuses uz nākamo. Turklāt varat ievietot manuālu lappuses pārtraukumu pēc teksta diapazona beigām. Tad teksts sāksies nākamās lappuses augšdaļā. Lai uzzinātu, kā ievietot manuālu lappuses pārtraukumu, varat skatīt šo rakstu: 5 veidi, kā ātri ievietot lapas pārtraukumus Word dokumentā

Tomēr jums vajadzētu saprast, ka automātiskie lapu pārtraukumi nav redzami un tāpēc tos nevar izdzēst manuāli. Bet manuāli ievietotie lapu pārtraukumi to dara. Tāpēc mūsu raksts galvenokārt piedāvās jums noderīgas pieejas, lai noņemtu nevēlamus manuālos lapu pārtraukumus Word dokumentā.   

1. metode: manuāli noņemiet lapu pārtraukumus

1. Pirmkārt, jums ir jānoklikšķina uz “Show / Hide” komandas cilnē “Home”, lai atklātu visas dokumentā slēptās zīmes un simbolus, lai jūs varētu apskatīt lapas pārtraukumu.
2. Pēc tam atlasiet lapas pārtraukumu un nospiediet “Dzēst”, lai no tā atbrīvotos.
3. Vai arī varat noklikšķināt pa kreisi no lapas pārtraukuma un pēc tam nospiest “Dzēst”.

2. metode: izmantojiet funkciju “Atrast un aizstāt”

1. Vispirms nospiediet taustiņu kombināciju “Ctrl + H”, lai aktivizētu lodziņu “Atrast un aizstāt”.
2. Pēc tam ievietojiet kursoru tekstlodziņā “Atrast ko” un noklikšķiniet uz cilnes “Vēl”.
3. Pēc tam noklikšķiniet uz “Special” un šajā izvēlnē izvēlieties “Manual Page Break”.
4. Visbeidzot, atstājiet lodziņu “Aizstāt ar” tukšu un noklikšķiniet uz “Aizstāt visu”, lai dokumentā noņemtu katru lapu pārtraukumu.

3. metode: palaidiet makro, lai dokumentā izdzēstu visu lapu pārtraukumus

1. Pirmkārt, aktivizējiet VBA redaktoru programmā Word, nospiežot “Alt + F11”.
2. Pēc tam kreisajā kolonnā noklikšķiniet uz “Normal”.
3. Pēc tam izvēlnes joslā noklikšķiniet uz “Insert” un atlasiet “Module”.
4. Atveriet moduli ar dubultklikšķi un tur ielīmējiet šādus kodus:

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. Visbeidzot, nospiediet taustiņu “F5”, lai izpildītu kodus.

4. metode: dzēst visu lapu, tiek izlauzti visi mapes dokumenti

Lai noņemtu visus lapu pārtraukumus visos mapes dokumentos, varat izmantot šo metodi.

1. Lai instalētu un palaistu makro, varat atsaukties uz 3. metodes darbībām.
2. Neaizmirstiet aizstāt ar šo makro zemāk:

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

Makro aktivizēs logu “Pārlūkot”. Atlasiet mapi, kurā atrodas jūsu mērķa dokumenti, un noklikšķiniet uz “Labi”, lai turpinātu.

Gatavojieties datu katastrofai

Daudzi no jums ir zinājuši par datu zuduma nejaušību. Word lietotājiem ieteicams arī labi sagatavoties jebkurai datu katastrofai. Un viens no labākajiem veidiem ir iegūt docx remonts rīks iepriekš.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xlsx atkopšana un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar