4 Metode rapide pentru a elimina întreruperile de pagină nedorite din documentul Word

În această postare, ne vom concentra pe prezentarea a 4 metode rapide pentru a elimina sfârșiturile de pagină nedorite din documentul Word.

Word inserează automat o sfârșire de pagină atunci când se trece de la o pagină la alta. În plus, puteți insera manual o sfârșire de pagină după sfârșitul unui interval de text. Astfel, textul va începe în partea de sus a paginii următoare. Pentru a afla cum se inserează manual o sfârșire de pagină, puteți consulta acest articol: 5 moduri de a introduce rapid rupturi de pagină în documentul Word

Cu toate acestea, ar trebui să înțelegeți că întreruperile automate de pagină sunt invizibile și, prin urmare, nu pot fi șterse manual. Dar pauzele de pagină manuale introduse fac. Prin urmare, articolul nostru vă va oferi în principal abordări utile pentru a elimina întreruperile manuale nedorite de pagină din documentul Word.   

Metoda 1: Eliminați manual întreruperile de pagină

1. În primul rând, trebuie să faceți clic pe comanda „Afișare/Ascunde” din fila „Acasă” pentru a dezvălui toate marcajele și simbolurile ascunse din document, astfel încât să puteți vizualiza întreruperea paginii.
2. Apoi, selectați o întrerupere de pagină și apăsați „Șterge” pentru a scăpa de ea.
3. Sau puteți face clic în partea stângă a unei întreruperi de pagină și apoi apăsați „Șterge”.

Metoda 2: Folosiți funcția „Găsiți și înlocuiți”.

1. Pentru început, apăsați „Ctrl+ H” pentru a declanșa caseta „Găsiți și înlocuiți”.
2. Apoi plasați cursorul în caseta de text „Găsiți ce” și faceți clic pe fila „Mai multe”.
3. Apoi faceți clic pe „Special” și alegeți „Încărcare manuală de pagină” din meniul respectiv.
4. În cele din urmă, lăsați caseta „Înlocuiți cu” goală și faceți clic pe „Înlocuiți toate” pentru a elimina fiecare întrerupere de pagină din document.

Metoda 3: Rulați Macro pentru a șterge toate întreruperile de pagină dintr-un document

1. În primul rând, declanșați editorul VBA în Word apăsând „Alt+ F11”.
2. Apoi faceți clic pe proiect „Normal” din coloana din stânga.
3. Apoi faceți clic pe „Insert” în bara de meniu și selectați „Modul”.
4. Deschideți modulul cu dublu clic și inserați următoarele coduri acolo:

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. În cele din urmă, apăsați „F5” pentru a executa coduri.

Metoda 4: Ștergeți toate întreruperile de pagină din toate documentele dintr-un folder

Pentru a elimina toate întreruperile de pagină din toate documentele dintr-un folder, puteți utiliza această metodă.

1. Pentru a instala și a rula o macrocomandă, puteți consulta pașii din metoda 3.
2. Și nu uitați să înlocuiți cu această macrocomandă de mai jos:

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

Macrocomanda va declanșa fereastra „Răsfoire”. Selectați un folder care conține documentele țintă și faceți clic pe „OK” pentru a continua.

Pregătiți-vă pentru dezastrul de date

Mulți dintre voi au fost conștienți de caracterul aleatoriu al pierderii datelor. Pentru utilizatorii Word, este, de asemenea, recomandabil să fie bine pregătiți pentru orice dezastru de date. Și una dintre cele mai bune modalități este de a obține un reparație docx instrument în avans.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare xlsx și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com