4 rychlé metody pro odstranění nežádoucích konců stránek v dokumentu Word

V tomto příspěvku se zaměříme na představení 4 rychlých metod, jak odstranit nežádoucí zalomení stránek v dokumentu Word.

Word vkládá automatické zalomení stránky při přechodu z jedné stránky na další. Kromě toho můžete vložit ruční zalomení stránky za konec rozsahu textu. Text pak začne na začátku další stránky. Postup ručního zalomení stránky naleznete v tomto článku: 5 způsobů, jak rychle vložit konce stránek do dokumentu Word

Měli byste však pochopit, že automatické konce stránek jsou neviditelné, a proto je nelze ručně odstranit. Ale vložené ruční konce stránek ano. Náš článek vám tedy nabídne hlavně užitečné přístupy k odstranění nežádoucích ručních zalomení stránek v dokumentu aplikace Word.   

Metoda 1: Odebrat konce stránek ručně

1. Nejprve musíte kliknout na příkaz „Zobrazit/Skrýt“ na kartě „Domů“, abyste odkryli všechny skryté značky a symboly v dokumentu, abyste si mohli prohlédnout konec stránky.
2. Dále vyberte konec stránky a stisknutím tlačítka „Smazat“ se ho zbavte.
3. Nebo můžete kliknout nalevo od konce stránky a poté stisknout „Odstranit“.

Metoda 2: Použijte funkci „Najít a nahradit“

1. Chcete-li začít, stiskněte "Ctrl + H" pro spuštění pole "Najít a nahradit".
2. Poté umístěte kurzor do textového pole „Najít co“ a klikněte na kartu „Další“.
3. Dále klikněte na „Speciální“ a v této nabídce vyberte „Ruční zalomení stránky“.
4. Nakonec ponechte pole „Nahradit za“ prázdné a kliknutím na „Nahradit vše“ odstraňte každý konec stránky v dokumentu.

Metoda 3: Spuštění makra k odstranění všech konců stránek v dokumentu

1. Nejprve spusťte editor VBA ve Wordu stisknutím „Alt+ F11“.
2. Dále klikněte na „Normální“ projekt v levém sloupci.
3. Poté klikněte na „Vložit“ na liště nabídek a vyberte „Modul“.
4. Otevřete modul dvojitým kliknutím a vložte do něj následující 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. Nakonec stiskněte „F5“ pro spuštění kódů.

Metoda 4: Odstraňte všechny konce stránek ve všech dokumentech ve složce

Chcete-li odstranit všechny konce stránek ve všech dokumentech ve složce, můžete použít tuto metodu.

1. Chcete-li nainstalovat a spustit makro, můžete postupovat podle kroků v metodě 3.
2. A nezapomeňte nahradit tímto makrem níže:

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 „Procházet“. Vyberte složku, která obsahuje cílové dokumenty, a klikněte na „OK“ pro pokračování.

Připravte se na datovou katastrofu

Mnozí z vás si byli vědomi náhodné ztráty dat. Pro uživatele Wordu je také vhodné dobře se připravit na jakoukoli datovou katastrofu. A jedním z nejlepších způsobů je získat a Oprava docx nástroj předem.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xlsx zotavení a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com