4 szybkie metody usuwania niechcianych podziałów stron w dokumencie Word

W tym poście skupimy się na przedstawieniu 4 szybkich metod usuwania niechcianych podziałów stron w dokumencie Word.

Program Word automatycznie wstawia podział strony podczas przechodzenia z jednej strony na następną. Możesz również wstawić ręczny podział strony po zakończeniu fragmentu tekstu. Wtedy tekst zacznie się od góry następnej strony. Aby dowiedzieć się, jak wstawić ręczny podział strony, zapoznaj się z tym artykułem: 5 sposobów szybkiego wstawiania podziałów stron do dokumentu programu Word

Powinieneś jednak zrozumieć, że automatyczne podziały stron są niewidoczne i dlatego nie można ich usunąć ręcznie. Ale wstawione podziały stron podręcznika tak. Dlatego nasz artykuł zaoferuje Ci głównie przydatne metody usuwania niechcianych ręcznych podziałów stron w dokumencie Word.   

Metoda 1: Ręcznie usuń podziały stron

1. Przede wszystkim musisz kliknąć polecenie „Pokaż/Ukryj” w zakładce „Strona główna”, aby odsłonić wszystkie ukryte znaki i symbole w dokumencie, aby można było zobaczyć podział strony.
2. Następnie wybierz podział strony i naciśnij „Usuń”, aby się go pozbyć.
3. Lub możesz kliknąć po lewej stronie podziału strony, a następnie nacisnąć „Usuń”.

Metoda 2: Użyj funkcji „Znajdź i zamień”

1. Na początek naciśnij „Ctrl + H”, aby uruchomić okno „Znajdź i zamień”.
2. Następnie umieść kursor w polu tekstowym „Znajdź co” i kliknij kartę „Więcej”.
3. Następnie kliknij „Specjalne” i wybierz z tego menu „Ręczny podział strony”.
4. Na koniec pozostaw puste pole „Zamień na” i kliknij „Zamień wszystko”, aby usunąć każdy podział strony w dokumencie.

Metoda 3: Uruchom makro, aby usunąć wszystkie podziały stron w dokumencie

1. Po pierwsze, uruchom edytor VBA w programie Word, naciskając „Alt + F11”.
2. Następnie kliknij „Normalny” projekt w lewej kolumnie.
3. Następnie kliknij „Wstaw” na pasku menu i wybierz „Moduł”.
4. Otwórz moduł podwójnym kliknięciem i wklej tam następujące kody:

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. Na koniec naciśnij „F5”, aby wykonać kody.

Metoda 4: Usuń wszystkie podziały stron we wszystkich dokumentach w folderze

Aby usunąć wszystkie podziały stron we wszystkich dokumentach w folderze, możesz skorzystać z tej metody.

1. Aby zainstalować i uruchomić makro, możesz zapoznać się z krokami w metodzie 3.
2. I pamiętaj, aby zastąpić tym makrem poniżej:

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 uruchomi okno „Przeglądaj”. Wybierz folder zawierający dokumenty docelowe i kliknij „OK”, aby kontynuować.

Przygotuj się na katastrofę danych

Wielu z Was było świadomych losowości utraty danych. Użytkownikom programu Word zaleca się również dobre przygotowanie na każdą katastrofę związaną z danymi. A jednym z najlepszych sposobów jest uzyskanie naprawa docx narzędzie z góry.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie xlsx i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com