3 modi per eliminare rapidamente tutte le interruzioni di sezione nel documento di Word

In questo articolo, vogliamo condividere con te 3 modi per eliminare rapidamente tutte le interruzioni di sezione nel tuo documento Word.

Le interruzioni di sezione sono utili per creare più sezioni nel documento di Word. Quindi puoi formattare diverse sezioni in stili distintivi. Ed ecco il nostro precedente articolo per inserire rapidamente interruzioni di sezione nel documento: 3 modi per inserire rapidamente interruzioni di sezione nel documento di Word

Tuttavia, è abbastanza comune rivedere un documento, come cambiare gli stili, dividere nuovamente le sezioni, ecc. In particolare, se c'è un grosso aggiustamento da fare, probabilmente dovrai rimuovere tutte le interruzioni di sezione. Di seguito sono riportati i metodi 3 che è possibile utilizzare per eliminare le interruzioni di sezione in batch.

Metodo 1: trova tutte le interruzioni di sezione nel documento

1. Prima di tutto, premi "Ctrl + H" per aprire la casella "Trova e sostituisci" in Word.
2. Quindi posiziona il cursore all'interno della casella di testo "Trova cosa".
3. Fare clic sul pulsante "Altro" per ottenere più opzioni.
4. Quindi fare clic su "Speciale" e scegliere "Interruzione di sezione" dal suo menu. Quindi vedrai "^ b" nella casella di testo "Trova cosa". Quindi un modo alternativo è inserire "^ b" direttamente dopo il passaggio 2.
5. Infine, lasciare vuota la casella "Sostituisci con" e fare clic su "Sostituisci tutto". Fare clic su "OK" nella casella di conferma.

Metodo 2: eseguire una macro per eliminare tutte le interruzioni di sezione in un documento

Ecco il modo automatico per sbarazzarsi di tutte le interruzioni di sezione indesiderate.

1. Per cominciare, apri l'editor VBA in Word premendo "Alt + F11".
2. Quindi creare un nuovo modulo facendo clic su "Normale".
3. Quindi fare clic su "Inserisci" e selezionare "Modulo".
4. Ora apri il modulo con doppio clic.
5. Nello spazio di codifica sul lato destro, incolla i seguenti codici:

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. Infine, fai clic su "Esegui".

Troverai tutte le interruzioni di sezione da nessuna parte in un secondo.

Metodo 3: eliminare tutte le interruzioni di sezione in più documenti

Allo stesso modo, dobbiamo eseguire una macro se vogliamo farlo in modo rapido e sporco.

1. Prima di tutto, inserisci tutti i documenti di destinazione in un'unica cartella.
2. Quindi installa una macro con i passaggi del metodo 2.
3. Esegui invece questa macro:

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. Successivamente, nella finestra "Sfoglia", selezionare la cartella in cui salvare i documenti.
5. Ultimo ma non meno importante, fare clic su "OK".

Preparati alla perdita di dati

Normalmente, con buone abitudini operative, un po' di fortuna e tutto il necessario, puoi ottenere molto in Word. Ma gli arresti anomali possono verificarsi in qualsiasi momento. Pertanto, è di vitale importanza eseguire regolarmente il backup dei documenti. Con un backup a disposizione, sarai più sicuro prima di iniziare il lavoro. correzione docx.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recupero xls and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com