2 modi veloci per estrarre sezioni dal tuo documento di Word

In questo articolo, ti offriremo 2 modi semplici e veloci per estrarre sezioni dal tuo documento Word in un altro o più.

Capita abbastanza spesso di estrarre contenuti da un documento all'altro. E nel nostro precedente articolo, abbiamo discusso su come estrarre le pagine dal documento. Per informazioni dettagliate, puoi fare riferimento a questo articolo: 2 modi rapidi per estrarre singole pagine dal documento di Word

Oggi ti mostreremo come estrarre per sezione.    

Metodo 1: estrarre la sezione corrente in un nuovo documento

1. Innanzitutto, posiziona il cursore nella sezione di destinazione.
2. Quindi premi "Alt + F11" per richiamare l'editor VBA in Word.
3. Quindi, nella colonna di sinistra, fai clic su "Normale".
4. E sulla barra dei menu, fai clic su "Inserisci".
5. Quindi scegli "Modulo" in quel menu a discesa.
6. Fare doppio clic per aprire il nuovo modulo e incollare i seguenti codici:

Sub SaveCurrentSectionAsNewDoc()
  Dim strFolder As String
  Dim dlgFile As FileDialog
  Dim strNewFileName As String
  Dim objDocAdded As Document
  Dim objDoc As Document
 
  ' Initialization
  Set objDoc = ActiveDocument
 
  ' Pick a place to store the new file.
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      strFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strNewFileName = InputBox("Enter new file name here: ", "File Name")
 
  ' Select and copy current section range.
  objDoc.Bookmarks("\Section").Range.Select
  Selection.Copy
 
  ' Open a new document to paste the above selection.
  Set objDocAdded = Documents.Add
  Selection.Paste
 
  ' Save and close the new document.
  objDocAdded.SaveAs FileName:=strFolder & strNewFileName & ".docx"
  objDocAdded.Close
End Sub

7. Successivamente, fai clic su "Esegui" sulla barra dei menu o premi "F5".
8. Quindi verrà visualizzata la finestra "Sfoglia". Scegli un posto dove archiviare il nuovo documento e fai clic su "OK".
9. E nella casella "Nome file", inserisci il nome per il nuovo file e fai clic su "OK".

Ora hai estratto la sezione in un nuovo documento.

Metodo 2: estrarre ciascuna sezione nel documento in singoli nuovi

In questo modo è possibile elaborare in batch tutte le sezioni di un documento. Ovviamente avremo bisogno anche di una macro.

1. Per iniziare, apri il documento di destinazione.
2. Quindi seguire i passaggi del metodo 1 per installare ed eseguire una macro.
3. Solo che questa volta sostituisci quella macro con questa:

Sub SaveEachSectionAsADoc()
  Dim objDocAdded As Document
  Dim objDoc As Document
  Dim nSectionNum As Integer
  Dim strFolder As String

  Dim dlgFile As FileDialog
 
  ' Initialization
  Set objDoc = ActiveDocument
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  ' Pick a location to keep new files.
  With dlgFile
    If .Show = -1 Then
      strFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  ' Step through each section in current document, copy and paste each to a new one.
  For nSectionNum = 1 To ActiveDocument.Sections.Count
    Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext, Name:=nSectionNum
    ActiveDocument.Sections(nSectionNum).Range.Copy
 
    Set objDocAdded = Documents.Add
    Selection.Paste
 
    ' Save and close new documents.
    objDocAdded.SaveAs FileName:=strFolder & "Section " & nSectionNum & ".docx"
    objDocAdded.Close
  Next nSectionNum
End Sub

4. Ancora, nella finestra "Sfoglia", scegli un percorso di archiviazione e fai clic su "OK".

Correggi gli errori di parole irritanti

È comune imbattersi in alcuni errori di Word durante l'utilizzo. Potrebbe essere fastidioso, dobbiamo prenderci del tempo per farlo recuperare la parola appena possibile. Perché più a lungo lo ritardiamo, più grave può essere la perdita di dati. Pertanto, si consiglia di procurarsi in anticipo un'utilità di riparazione.

Introduzione dell'autore:

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