3 módszer az összes szakasztörés gyors törlésére a Word-dokumentumban

Ebben a cikkben 3 módszert szeretnénk megosztani Önnel, hogyan gyorsan törölheti az összes szakasztörést a Word-dokumentumban.

A szakasztörések hasznosak több szakasz létrehozásához a Word dokumentumban. Így a különböző szakaszokat egyedi stílusban formázhatja. És itt van egy korábbi cikkünk, amellyel gyorsan beillesztheti a szakasztöréseket a dokumentumba: 3 módszer a szakasztörések gyors beszúrására a Word dokumentumba

Mindazonáltal meglehetősen gyakori a dokumentum átdolgozása, például a stílusok megváltoztatása, a szakaszok újrafelosztása stb. Különösen, ha nagy módosításokat kell végrehajtani, valószínűleg el kell távolítania az összes szakasztörést. A következő 3 módszert használhatja a szakasztörések kötegelt törlésére.

1. módszer: Keresse meg az összes szakaszszakítást a dokumentumban

1. Először nyomja meg a „Ctrl + H” billentyűt a „Keresés és csere” mező megnyitásához a Wordben.
2. Ezután tegye a kurzort a „Találja meg” szövegmezőbe.
3. Kattintson a „Tovább” gombra további opciókért.
4. Ezután kattintson a „Különleges” elemre, és válassza a „Szakaszszakasz” menüpontot. Ezután a „Find what” szövegmezőben megjelenik a „^ b” szó. Tehát egy alternatív módszer a „^ b” beírása közvetlenül a 2. lépés után.
5. Végül hagyja üresen a „Csere” mezőt, majd kattintson az „Összes cseréje” gombra. Kattintson az „OK” gombra a megerősítő mezőben.

2. módszer: Futtasson makrót az összes szakasz törés törléséhez egy dokumentumban

Ez az automatikus módszer arra, hogy megszabaduljon a nem kívánt szakaszszakadásoktól.

1. Először nyissa meg a VBA szerkesztőt a Wordben az „Alt + F11” megnyomásával.
2. Ezután hozzon létre egy új modult a „Normal” gombra kattintva.
3. Ezután kattintson a „Beszúrás” gombra, és válassza a „Modul” lehetőséget.
4. Most dupla kattintással nyissa meg a modult.
5. A jobb oldalon lévő kódolási helyre illessze be a következő kódokat:

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. Végül kattintson a „Futtatás” gombra.

Az összes szakaszszünetet sehol egy másodperc alatt megtalálja.

3. módszer: Az összes szakasz törésének törlése több dokumentumban

Hasonlóképpen makrót kell futtatnunk, ha gyors és piszkos módon akarjuk megtenni.

1. Mindenekelőtt tegye az összes céldokumentumot egy mappába.
2. Ezután telepítsen egy makrót a 2. módszer lépéseivel.
3. Futtassa inkább ezt a makrót:

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. Ezután a megnyíló „Tallózás” ablakban válassza ki azt a mappát, ahová mentse a dokumentumokat.
5. Végül, de nem utolsósorban kattintson az „OK” gombra.

Készüljön fel az adatvesztésre

Normális esetben, jó használati szokásokkal, sok szerencsével és minden áldással sokat el lehet érni a Wordben. De a rendszer bármikor összeomolhat. Ezért létfontosságú a dokumentumok rendszeres biztonsági mentése. Egy biztonsági mentéssel a kezében magabiztosabb lesz, mielőtt elkezdi a munkát. docx javítás.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls helyreállítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com