4 Metodi per estrarre le tabelle da un documento Word all'altro

In questo articolo, siamo lieti di mostrarti i metodi 4 per estrarre più tabelle da un documento Word a un altro.

Le tabelle sono il mezzo più utilizzato per rappresentare informazioni in formato tabellare. Organizzano i dati in righe e colonne, offrendo ai lettori una visione chiara di tutte le informazioni. Un documento lungo può contenere molte tabelle, quindi a volte è necessario esportarle in un nuovo documento per diversi scopi.

Ecco i nostri 4 approcci.

Metodo 1: esportazione in batch di tutte le tabelle da un documento all'altro

1. Innanzitutto, premi “Alt + F11” per attivare l’editor VBA in Word.
2. Quindi fare clic sul progetto "Normale" e sulla scheda "Inserisci" successiva.
3. Scegli "Modulo" nel menu a discesa.
4. E fai doppio clic per aprire il modulo e far emergere lo spazio di modifica sul lato destro.
5. Ora copia e incolla la seguente macro lì:

Sub ExtractTablesFromOneDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    '  Paste tables to new document in rich text format.
    Set objRange = objNewDoc.Range
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
End Sub

6. Infine, fai clic su "Esegui".

Questa macro estrarrà sia le tabelle che le relative didascalie.

Metodo 2: estrarre una tabella specifica da un documento

Ora, nel caso ci siano molte tabelle nel tuo documento, ma devi inviare una particolare tabella a qualcuno. Quindi la seguente macro ti sarà di grande aiuto.

1. Innanzitutto, installa ed esegui la macro seguendo i passaggi nel metodo 1.
2. In secondo luogo, sostituisci quella macro con questa:

Sub ExtractSpecificTables()
  Dim objTable As Table
  Dim objDoc As Document
  Dim objNewDoc As Document
  Dim objRange As Range
  Dim strTable As String
 
  strTable = InputBox("Enter the table number: ")
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  objDoc.Tables(strTable).Range.Select
  Selection.Copy
 
  Set objRange = objNewDoc.Range
  objRange.Collapse Direction:=wdCollapseEnd
  objRange.PasteSpecial DataType:=wdPasteRTF
 
End Sub

3. Ora apparirà una casella di input.
4. Immettere un numero di tavolo e fare clic su "OK".

Metodo 3: estrazione in batch di tutte le tabelle da più documenti

1. Per iniziare, organizza tutti i file in un'unica cartella.
2. Quindi installa ed esegui una macro con le istruzioni sopra esatte.
3. Sostituisci macro con questa:

Sub ExtractTablesFromMultiDocs()
  Dim objTable As Table
  Dim objDoc As Document, objNewDoc As Document
  Dim objRange As Range
  Dim strFile As String, strFolder As String
 
  '  Initialization
  strFolder = InputBox("Enter folder address here: ")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
 
  Set objNewDoc = Documents.Add
 
  '  Process each file in the folder.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      objTable.Range.Select
      Selection.Copy
 
      Set objRange = objNewDoc.Range
      objRange.Collapse Direction:=wdCollapseEnd
      objRange.PasteSpecial DataType:=wdPasteRTF
      objRange.Collapse Direction:=wdCollapseEnd
      objRange.Text = vbCr
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
 
End Sub

4. Ora nella casella di richiesta, inserisci l'indirizzo della cartella in cui memorizzi i tuoi documenti e fai clic su "OK".

Metodo 4: copia le tabelle manualmente

Tuttavia, se non ti senti a tuo agio con VBA, puoi eseguire il lavoro manualmente purché ci sia un numero limitato di tabelle.

1. Innanzitutto, fai clic sul segno più nell'angolo in alto a sinistra per selezionare la tabella di destinazione.
2. Quindi premi "Ctrl + C" per copiarlo.
3. Quindi apri un nuovo documento.
4. E premi "Ctrl + V" per incollare la tabella nel nuovo documento.
5. Ricordati di salvare il nuovo documento.

Gestire i problemi con i documenti

Finché continueremo a usare Word, ci sarà sempre Danno di parole. Tuttavia, non temere più. Non è più un problema irrisolvibile. Con uno strumento di recupero qualificato, hai un'alta possibilità di recuperare tutti i tuoi preziosi dati.

Introduzione dell'autore:

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