3 būdai, kaip greitai ištrinti visas „Word“ dokumento skilčių pertraukas

Šiame straipsnyje norime pasidalinti su jumis 3 būdais, kaip greitai ištrinti visas „Word“ dokumento sekcijų pertraukas.

Skyrių pertraukos yra naudingos kuriant kelias dalis Word dokumente. Taigi galite suformatuoti skirtingus skirsnius skirtingais stiliais. Ir čia yra mūsų ankstesnis straipsnis, kuriame galite greitai įterpti skyrių pertraukas į dokumentą: 3 būdai, kaip greitai įterpti skyrių pertraukas į savo „Word“ dokumentą

Tačiau gana įprasta dokumentą peržiūrėti, pavyzdžiui, pakeisti stilių, perskirstyti skyrius ir pan. Ypač jei reikia atlikti didelį koregavimą, tikriausiai reikės pašalinti visas skyrių pertraukas. Toliau pateikiami 3 būdai, kuriuos galite naudoti norėdami ištrinti partijos skyrių pertraukas.

1 metodas: dokumente raskite visas skyrių pertraukas

1. Pirmiausia paspauskite „Ctrl + H“, kad „Word“ atidarytumėte laukelį „Rasti ir pakeisti“.
2. Tada įdėkite žymeklį į teksto laukelį „Rasti ką“.
3. Norėdami gauti daugiau galimybių, spustelėkite mygtuką „Daugiau“.
4. Tada spustelėkite „Special“ ir jo meniu pasirinkite „Section Break“. Tada teksto laukelyje „Rask ką“ pamatysite „^ b“. Taigi alternatyvus būdas yra įvesti „^ b“ iškart po 2 žingsnio.
5. Galiausiai palikite laukelį „Pakeisti“ tuščią ir spustelėkite „Pakeisti viską“. Patvirtinimo laukelyje spustelėkite „Gerai“.

2 metodas: paleiskite makrokomandą, kad ištrintumėte visus skyriuje esančius lūžius viename dokumente

Tai yra automatinis būdas atsikratyti visų nepageidaujamų skyrių pertraukų.

1. Pirmiausia atidarykite VBA redaktorių programoje „Word“ paspausdami „Alt + F11“.
2. Tada sukurkite naują modulį spustelėdami „Normal“.
3. Tada spustelėkite „Įterpti“ ir pasirinkite „Modulis“.
4. Dabar atidarykite modulį dukart spustelėdami.
5. Dešinėje pusėje esančioje kodavimo vietoje įklijuokite šiuos kodus:

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. Galiausiai spustelėkite „Vykdyti“.

Visų sekcijų pertraukas per sekundę rasite niekur.

3 metodas: ištrinkite visus kelių dokumentų pertraukų lūžius

Panašiai turime paleisti makrokomandą, jei norime tai padaryti greitai ir nešvariai.

1. Visų pirma sudėkite visus tikslinius dokumentus į vieną aplanką.
2. Tada įdiekite makrokomandą atlikdami 2 metodo veiksmus.
3. Vykdykite šią makrokomandą:

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. Tada atidarytame lange „Naršyti“ pasirinkite aplanką, kuriame išsaugosite dokumentus.
5. Paskutinis, bet ne mažiau svarbus dalykas, spustelėkite „Gerai“.

Pasiruoškite duomenų praradimui

Paprastai, gerai įpratę dirbti, sėkmingai ir palaimindami, „Word“ programoje galite daug pasiekti. Tačiau gedimai gali užklupti bet kada. Todėl labai svarbu reguliariai kurti dokumentų atsargines kopijas. Turėdami atsarginę kopiją, jausitės labiau pasitikintys savimi prieš pradėdami darbą. docx taisymas.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls atkūrimas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com