3 moduri de a șterge rapid toate întreruperile de secțiune din documentul Word

Distribuie acum:

În acest articol, dorim să vă împărtășim 3 moduri de a șterge rapid toate pauzele de secțiune din documentul Word.

Secțiunile sunt utile în crearea mai multor secțiuni în documentul Word. Astfel, puteți formata diferite secțiuni în stiluri distincte. Și iată articolul nostru anterior pentru ca tu să inserezi rapid pauze de secțiune în document: 3 moduri de a introduce rapid rupturi de secțiune în documentul Word

Cu toate acestea, este destul de obișnuit să revizuiți un document, cum ar fi schimbarea stilurilor, re-împărțirea secțiunilor, etc. În special, dacă există o ajustare mare de făcut, probabil că va trebui să eliminați toate pauzele de secțiuni. Următoarele sunt 3 metode pe care le puteți utiliza pentru a șterge pauzele de secțiune în lot.Ștergeți toate întreruperile de secțiune din documentul dvs. Word

Metoda 1: Găsiți toate pauzele de secțiune din document

  1. În primul rând, apăsați „Ctrl + H” pentru a deschide caseta „Găsiți și înlocuiți” în Word.
  2. Apoi puneți cursorul în caseta de text „Găsiți ce”.
  3. Faceți clic pe butonul „Mai multe” pentru a obține mai multe opțiuni.
  4. Apoi faceți clic pe „Special” și alegeți „Break Break” din meniul său. Apoi, veți vedea „^ b” în caseta de text „Găsiți ce”. Deci, o modalitate alternativă este să introduceți „^ b” direct după pasul 2.Faceți clic pe „Special”->Alegeți „Pauza de secțiune”
  5. În cele din urmă, lăsați caseta „Înlocuiți cu” și faceți clic pe „Înlocuiți toate”. Faceți clic pe „OK” pe caseta de confirmare.Introduceți „^b” în caseta de text „Găsiți ce”-> Faceți clic pe „Înlocuiește tot”

Metoda 2: Rulați o macro pentru a șterge toate pauzele de secțiune dintr-un singur document

Iată modalitatea automată de a scăpa de toate pauzele de secțiune nedorite.

  1. Pentru început, deschideți editorul VBA în Word apăsând „Alt + F11”.
  2. Apoi creați un nou modul făcând clic pe „Normal”.
  3. Apoi faceți clic pe „Insert” și selectați „Module”.Faceți clic pe „Normal” -> Faceți clic pe „Inserare” -> Faceți clic pe „Modul”
  4. Acum deschideți modulul cu dublu clic.
  5. În spațiul de codare din partea dreaptă, lipiți următoarele coduri:
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
  1. În cele din urmă, faceți clic pe „Rulați”.Lipiți coduri-> Faceți clic pe „Run”

Toate pauzele de secțiune nu le veți găsi nicăieri într-o secundă.

Metoda 3: Ștergeți toate pauzele de secțiune din mai multe documente

În mod similar, trebuie să rulăm o macro dacă vrem să o facem într-un mod rapid și murdar.

  1. Înainte de toate, puneți toate documentele țintă într-un singur folder.
  2. Apoi instalați o macrocomandă cu pașii din metoda 2.
  3. Rulați în schimb această macrocomandă:
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
  1. Apoi, în fereastra „Browse” deschisă, selectați folderul în care salvați documentele.
  2. Nu în ultimul rând, faceți clic pe „OK”.Selectați un folder-> Faceți clic pe „OK”

Pregătiți-vă pentru pierderea datelor

În mod normal, cu obiceiuri bune de utilizare, mult noroc și toate binecuvântările, poți realiza multe în Word. Dar erorile te pot lovi oricând. Prin urmare, este de o importanță vitală să faci copii de rezervă ale documentelor în mod regulat. Cu o copie de rezervă la îndemână, vei fi mai încrezător înainte de a începe. docx fix.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recuperare xls și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com

Distribuie acum:

Comentariile sunt închise.