3 Paraan para Mabilis na Tanggalin ang Lahat ng Seksyon Break sa Iyong Word Document

Sa artikulong ito, gusto naming ibahagi sa iyo ang 3 paraan upang mabilis na tanggalin ang lahat ng mga break na seksyon sa iyong Word document.

Ang mga section break ay kapaki-pakinabang sa paglikha ng maramihang mga seksyon sa Word document. Kaya maaari mong i-format ang iba't ibang mga seksyon sa mga natatanging istilo. At narito ang aming nakaraang artikulo para sa mabilis mong pagpasok ng mga break ng seksyon sa dokumento: 3 Paraan para Mabilis na Maglagay ng Mga Seksyon sa Iyong Word Document

Gayunpaman, medyo karaniwan na baguhin ang isang dokumento, tulad ng pagpapalit ng mga istilo, muling paghahati ng mga seksyon, atbp. Lalo na, kung may malaking pagsasaayos na gagawin, malamang na kakailanganin mong alisin ang lahat ng mga break ng seksyon. Ang sumusunod ay 3 paraan na maaari mong gamitin upang tanggalin ang mga break ng seksyon sa batch.

Paraan 1: Hanapin ang Lahat ng Mga Sira sa Seksyon sa Dokumento

1. Una sa lahat, pindutin ang "Ctrl + H" upang buksan ang kahon ng "Hanapin at Palitan" sa Word.
2. Susunod na ilagay ang cursor sa loob ng "Hanapin kung ano" na text box.
3. I-click ang button na “Higit pa” para makakuha ng higit pang mga opsyon.
4. Pagkatapos ay i-click ang "Espesyal" at piliin ang "Section Break" sa menu nito. Pagkatapos ay makikita mo ang “^b” sa “Hanapin kung ano” na text box. Kaya isang alternatibong paraan ay ang direktang ilagay ang “^b” pagkatapos ng hakbang 2.
5. Panghuli, iwanang blangko ang kahon na "Palitan ng" at i-click ang "Palitan Lahat". I-click ang "OK" sa kahon ng kumpirmasyon.

Paraan 2: Patakbuhin ang isang Macro upang Tanggalin ang Lahat ng Mga Pag-break ng Seksyon sa Isang Dokumento

Narito ang auto way para maalis mo ang lahat ng hindi ginustong mga pahinga sa seksyon.

1. Upang magsimula, buksan ang VBA editor sa Word sa pamamagitan ng pagpindot sa "Alt + F11".
2. Pagkatapos ay lumikha ng isang bagong module sa pamamagitan ng pag-click sa "Normal".
3. Susunod na pag-click sa "Ipasok" at piliin ang "Modyul".
4. Ngayon buksan ang module na may double click.
5. Sa puwang ng pag-cod sa kanang bahagi, i-paste ang mga sumusunod na code:

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. Panghuli, i-click ang "Run".

Mahahanap mo ang lahat ng mga break ng seksyon kahit saan sa isang segundo.

Paraan 3: Tanggalin ang Lahat ng Mga Sira sa Seksyon sa Maramihang Mga Dokumento

Katulad nito, dapat tayong magpatakbo ng isang macro kung nais nating gawin ito sa isang mabilis at maruming paraan.

1. Bago ang lahat, ilagay muna ang lahat ng mga dokumentong nais mong puntahan sa isang folder.
2. Pagkatapos mag-install ng isang macro na may mga hakbang sa pamamaraan 2.
3. Patakbuhin ang makro na ito sa halip:

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. Susunod sa bukas na "Browse" window, piliin ang folder kung saan ka nai-save ang mga dokumento.
5. Huling ngunit hindi pa huli, i-click ang "OK".

Maghanda para sa Pagkawala ng Data

Karaniwan, sa pamamagitan ng maayos na paggamit, good luck, at lahat ng biyaya, marami kang makakamit sa Word. Ngunit maaaring magkaroon ka ng mga pag-crash anumang oras. Kaya naman napakahalagang regular na mag-backup ng mga dokumento. Kung mayroon kang backup, mas magiging kumpiyansa ka bago simulan ang... pag-aayos ng docx.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang xls paggaling at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa