4 Швидкі методи видалення небажаних розривів сторінки у вашому документі Word

У цій публікації ми зосередимося на представленні 4 швидких методів видалення небажаних розривів сторінок у вашому документі Word.

Word вставляє автоматичний розрив сторінки під час переходу з однієї сторінки на наступну. Крім того, ви можете вставити розрив сторінки вручну після кінця діапазону тексту. Тоді текст почнеться зверху наступної сторінки. Щоб дізнатися, як вставити розрив сторінки вручну, зверніться до цієї статті: 5 способів швидкого вставлення розривів сторінки у ваш документ Word

Однак ви повинні розуміти, що автоматичні розриви сторінок невидимі, тому їх не можна видалити вручну. Але розриви сторінок, вставлені вручну, роблять. Тому наша стаття в основному запропонує вам корисні підходи до видалення небажаних ручних розривів сторінок у документі Word.   

Спосіб 1: видаліть розриви сторінок вручну

1. Перш за все, вам потрібно натиснути команду «Показати/Сховати» на вкладці «Головна», щоб показати всі приховані позначки та символи в документі, щоб ви могли переглянути розрив сторінки.
2. Далі виберіть розрив сторінки та натисніть «Видалити», щоб позбутися його.
3. Або ви можете клацнути ліворуч від розриву сторінки, а потім натиснути «Видалити».

Спосіб 2: Використовуйте функцію «Знайти та замінити»

1. Для початку натисніть «Ctrl+H», щоб відкрити вікно «Знайти та замінити».
2. Потім помістіть курсор у текстове поле «Знайти що» та натисніть вкладку «Більше».
3. Потім натисніть «Спеціальний» і виберіть «Розрив сторінки вручну» в цьому меню.
4. Нарешті, залиште поле «Замінити на» порожнім і натисніть «Замінити все», щоб видалити кожен розрив сторінки в документі.

Спосіб 3: запустіть макрос, щоб видалити всі розриви сторінок у документі

1. Спочатку запустіть редактор VBA у Word, натиснувши «Alt+ F11».
2. Далі натисніть проект «Звичайний» у лівій колонці.
3. Потім натисніть «Вставити» на панелі меню та виберіть «Модуль».
4. Відкрийте модуль подвійним клацанням і вставте туди наступні коди:

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. Нарешті, натисніть «F5», щоб виконати коди.

Спосіб 4: Видаліть усі розриви сторінок у всіх документах у папці

Щоб видалити всі розриви сторінок у всіх документах папки, ви можете скористатися цим методом.

1. Щоб установити та запустити макрос, ви можете звернутися до кроків у методі 3.
2. І не забудьте замінити цим макросом нижче:

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

Макрос має відкрити вікно «Огляд». Виберіть папку, яка містить цільові документи, і натисніть «ОК», щоб продовжити.

Підготуйтеся до Data Disaster

Багато з вас знають про випадковість втрати даних. Для користувачів Word також бажано бути добре підготовленими до будь-якої катастрофи даних. І один із найкращих способів – отримати a ремонт docx - - інструмент заздалегідь.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення XLSX та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com