3 начина за бързо изтриване на всички раздели на раздели във вашия документ на Word

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

Прекъсванията на раздели са полезни при създаването на множество раздели в документ на Word. Така че можете да форматирате различни раздели в характерни стилове. И ето нашата предишна статия, за да можете бързо да вмъкнете раздели на раздели в документа: 3 начина за бързо вмъкване на прекъсвания на раздели във вашия документ на Word

Въпреки това е доста често да се преразглежда документ, като промяна на стилове, преразделяне на раздели и др. По-специално, ако има голяма корекция, която трябва да се направи, вероятно ще трябва да премахнете всички раздели на раздели. Следват 3 метода, които можете да използвате, за да изтриете раздели на секции в партида.

Метод 1: Намерете всички раздели на раздели в документа

1. На първо място, натиснете „Ctrl + H“, за да отворите полето „Намиране и замяна“ в Word.
2. След това поставете курсора в текстовото поле „Намери какво“.
3. Щракнете върху бутона „Още“, за да получите повече опции.
4. След това щракнете върху „Special“ и изберете „Break Break“ от менюто му. След това ще видите „^ b“ в текстовото поле „Намери какво“. Така че алтернативен начин е да въведете „^ b“ директно след стъпка 2.
5. И накрая, оставете полето „Замени с“ празно и щракнете върху „Замени всички“. Щракнете върху „OK“ в полето за потвърждение.

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

Ето автоматичния начин да се отървете от всички нежелани прекъсвания на раздели.

1. Като начало отворете редактора на VBA в Word, като натиснете „Alt + F11“.
2. След това създайте нов модул, като щракнете върху „Нормално“.
3. След това кликнете върху „Вмъкване“ и изберете „Модул“.
4. Сега отворете модула с двойно щракване.
5. В пространството за кодиране от дясната страна поставете следните кодове:

Sub DeleteAllSectionsInOneDoc()
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = "^b"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
End Sub

6. Накрая щракнете върху „Run“.

Никъде за секунда няма да намерите всички прекъсвания на раздели.

Метод 3: Изтриване на всички раздели на раздели в множество документи

По същия начин трябва да стартираме макрос, ако искаме да го направим по бърз и мръсен начин.

1. Преди всичко, поставете всички целеви документи в една папка.
2. След това инсталирайте макрос със стъпки в метод 2.
3. Вместо това стартирайте този макрос:

Sub DeleteAllSectionBreaksInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "No folder is selected! Please select the target folder."
      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 = "^b"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      Selection.Find.Execute Replace:=wdReplaceAll
    End With
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. След това в отворения прозорец „Преглед“ изберете папката, в която записвате документи.
5. Не на последно място, щракнете върху „OK“.

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

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

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

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