4 métodos para extraer tablas de un documento de Word a otro

En este artículo, nos complace mostrarle 4 métodos para extraer varias tablas de un documento de Word a otro.

Las tablas son el medio más utilizado para almacenar información tabular. Organizan los datos en filas y columnas, ofreciendo a los lectores una visión clara de toda la información. Un documento extenso puede contener muchas tablas, por lo que a veces es necesario exportarlas a un nuevo documento para diversos fines.

Aquí están nuestros 4 enfoques.

Método 1: Exportar por lotes todas las tablas de un documento a otro

1. En primer lugar, pulse “Alt + F11” para abrir el editor de VBA en Word.
2. Luego haga clic en el proyecto "Normal" y la pestaña "Insertar" a continuación.
3. Elija "Módulo" en el menú desplegable.
4. Y haga doble clic para abrir el módulo y resaltar el espacio de edición en el lado derecho.
5. Ahora copie y pegue la siguiente macro allí:

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. Finalmente, haga clic en "Ejecutar".

Esta macro extraerá tanto las tablas como sus títulos.

Método 2: extraer una tabla específica de un documento

Ahora, en caso de que haya muchas tablas en su documento, pero necesita enviar una tabla en particular a alguien. Entonces, la siguiente macro te será de gran ayuda.

1. Primero, instale y ejecute la macro siguiendo los pasos del método 1.
2. En segundo lugar, reemplace esa macro con esta:

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. Ahora aparecerá un cuadro de entrada.
4. Ingrese un número de tabla y haga clic en "Aceptar".

Método 3: extraer por lotes todas las tablas de varios documentos

1. Para empezar, organiza todos los archivos en una misma carpeta.
2. Luego instale y ejecute una macro con las instrucciones exactas anteriores.
3. Reemplace la macro con esta:

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. Ahora, en el cuadro de mensajes, ingrese la dirección de la carpeta donde almacena sus documentos y haga clic en "Aceptar".

Método 4: copiar tablas manualmente

Sin embargo, si no se siente cómodo con VBA, puede hacer el trabajo manualmente siempre que haya un número limitado de tablas.

1. En primer lugar, haga clic en el signo más en la esquina superior izquierda para seleccionar la tabla de destino.
2. Luego presione "Ctrl + C" para copiarlo.
3. A continuación, abra un nuevo documento.
4. Y presione "Ctrl + V" para pegar la tabla en el nuevo documento.
5. Recuerde guardar el nuevo documento.

Manejar problemas con documentos

Mientras sigamos usando Word, siempre habrá Daño de palabra. Sin embargo, no temas más. Ya no es un problema irreparable. Con una herramienta de recuperación calificada, tiene una alta probabilidad de recuperar todos sus datos valiosos.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo xlsx corrupto y pdf reparar productos de software. Para más información visite www.datanumen.com