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

В тази публикация ще се съсредоточим върху представянето на 4 бързи метода за премахване на нежелани разделяния на страници във вашия Word документ.

Word вмъква автоматичен разделител на страници, когато преминава от една страница на следващата. Освен това можете да вмъкнете ръчен разделител на страници след края на диапазон от текст. Тогава текстът ще започне в началото на следващата страница. За информация как да вмъкнете ръчен разделител на страници, можете да се обърнете към тази статия: 5 начина за бързо вмъкване на прекъсвания на страници във вашия Word документ

Трябва обаче да разберете, че автоматичните прекъсвания на страници са невидими и следователно не могат да бъдат изтрити ръчно. Но вмъкнатите ръчни прекъсвания на страници правят. Така че нашата статия ще ви предложи основно полезни подходи за премахване на нежелани ръчни прекъсвания на страници в документа на Word.   

Метод 1: Премахване на прекъсванията на страниците ръчно

1. На първо място, трябва да щракнете върху командата „Показване / скриване“ в раздела „Начало“, за да разкриете всички скрити марки и символи в документа, за да можете да видите прекъсването на страницата.
2. След това изберете прекъсване на страница и натиснете „Изтриване“, за да се отървете от нея.
3. Или можете да щракнете вляво от прекъсването на страницата и след това да натиснете „Изтриване“.

Метод 2: Използвайте функцията „Намери и замени“

1. Като начало натиснете „Ctrl + H“, за да задействате полето „Намиране и замяна“.
2. След това поставете курсора в текстовото поле „Намери какво“ и щракнете върху раздела „Още“.
3. След това кликнете върху „Special“ и изберете „Manual Page Break“ в това меню.
4. И накрая, оставете полето „Замени с“ празно и щракнете върху „Замени всички“, за да премахнете всяко прекъсване на страница в документа.

Метод 3: Стартирайте Macro, за да изтриете всички прекъсвания на страници в документ

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

Макросът ще задейства прозореца „Преглед“. Изберете папка, която съдържа целевите ви документи, и щракнете върху „OK“, за да продължите.

Подгответе се за бедствие с данни

Много от вас са били наясно със случайността на загубата на данни. За потребителите на Word също е препоръчително да бъдат добре подготвени за всякакви катастрофи с данни. И един от най-добрите начини е да се получи ремонт на docx инструмент предварително.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително xlsx възстановяване и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com