4 rýchle metódy na odstránenie nežiaducich zlomov strán v dokumente Word

V tomto príspevku sa zameriame na predstavenie 4 rýchlych metód na odstránenie nechcených zalomení strán v dokumente programu Word.

Word vloží automatické zalomenie strany pri prechode z jednej strany na ďalšiu. Okrem toho môžete vložiť manuálne zalomenie strany za koniec rozsahu textu. Text sa potom začne v hornej časti nasledujúcej strany. Informácie o tom, ako vložiť manuálne zalomenie strany, nájdete v tomto článku: 5 spôsobov, ako rýchlo vložiť zlomy strán do dokumentu Word

Mali by ste však pochopiť, že automatické konce stránok sú neviditeľné, a preto ich nemožno ručne vymazať. Ale vložené ručné zalomenia stránok áno. Náš článok vám teda ponúkne hlavne užitočné prístupy na odstránenie nežiaducich manuálnych zalomení stránok v dokumente Word.   

Metóda 1: Ručné odstránenie zalomení stránky

1. Najskôr musíte kliknúť na príkaz „Zobraziť / skryť“ na karte „Domov“, aby ste odhalili všetky skryté značky a symboly v dokumente, aby ste si mohli prezrieť koniec stránky.
2. Ďalej vyberte koniec stránky a stlačením klávesu „Odstrániť“ sa ho zbavte.
3. Alebo môžete kliknúť naľavo od konca stránky a potom stlačiť tlačidlo „Odstrániť“.

Metóda 2: Použite funkciu „Nájsť a nahradiť“

1. Na začiatok stlačte klávesovú skratku „Ctrl + H“, aby sa spustilo pole „Nájsť a nahradiť“.
2. Potom umiestnite kurzor do textového poľa „Nájsť čo“ a kliknite na kartu „Viac“.
3. Ďalej kliknite na „Špeciálne“ a v tejto ponuke zvoľte „Ručné prerušenie stránky“.
4. Nakoniec nechajte pole „Nahradiť“ prázdne a kliknutím na tlačidlo „Nahradiť všetko“ odstráňte všetky zalomenia stránky v dokumente.

Metóda 3: Spustením makra odstránite všetky zalomenia stránky v dokumente

1. Najskôr spustite editor VBA v programe Word stlačením kombinácie klávesov „Alt + F11“.
2. Ďalej kliknite na „Normálny“ projekt v ľavom stĺpci.
3. Potom kliknite na paneli s ponukami na „Vložiť“ a vyberte „Modul“.
4. Otvorte modul dvojitým kliknutím a vložte tam nasledujúce kódy:

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. Nakoniec spustite kódy stlačením klávesu „F5“.

Metóda 4: Odstránenie všetkých zalomení strán vo všetkých dokumentoch v priečinku

Túto metódu môžete použiť na odstránenie všetkých koncov strán zo všetkých dokumentov v priečinku.

1. Ak chcete nainštalovať a spustiť makro, pozrite si kroky v metóde 3.
2. Nezabudnite nahradiť toto makro nižšie:

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 spustí okno „Prehľadávať“. Vyberte priečinok, ktorý obsahuje cieľové dokumenty, a kliknite na tlačidlo „OK“.

Pripravte sa na katastrofu dát

Mnoho z vás už vedelo o náhodnosti straty údajov. Pre používateľov Wordu je tiež vhodné byť dobre pripravení na každú katastrofu dát. A jedným z najlepších spôsobov je získať a oprava docx nástroj vopred.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xlsx zotavenie a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S