4 métodos para extrair tabelas de um documento do Word para outro

Neste artigo, temos o prazer de mostrar 4 métodos para extrair várias tabelas de um documento do Word para outro.

A tabela é o meio mais utilizado para armazenar informações tabulares. Ela organiza os dados em linhas e colunas, apresentando aos leitores uma visão clara de todas as informações. Um documento extenso pode conter muitas tabelas, sendo necessário exportá-las para um novo documento para diversas finalidades.

Aqui estão nossas 4 abordagens.

Método 1: Exportar em lote todas as tabelas de um documento para outro

1. Em primeiro lugar, pressione “Alt + F11” para abrir o editor VBA no Word.
2. Em seguida, clique no projeto “Normal” e na guia “Inserir” a seguir.
3. Escolha "Módulo" no menu suspenso.
4. E clique duas vezes para abrir o módulo e exibir o espaço de edição no lado direito.
5. Agora copie e cole a seguinte 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. Por fim, clique em “Executar”.

Esta macro irá extrair ambas as tabelas e suas legendas também.

Método 2: extrair uma tabela específica de um documento

Agora, caso haja muitas tabelas em seu documento, mas você precisa enviar uma tabela específica para alguém. Então a macro a seguir vai te ajudar muito.

1. Primeiro, instale e execute a macro seguindo as etapas do método 1.
2. Em segundo lugar, substitua essa macro por 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. Agora haverá uma caixa de entrada aparecendo.
4. Digite um número de mesa e clique em "OK".

Método 3: extração em lote de todas as tabelas de vários documentos

1. Para começar, organize todos os arquivos em uma única pasta.
2. Em seguida, instale e execute uma macro com as instruções exatas acima.
3. Substitua a macro por 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. Agora, na caixa de solicitação, digite o endereço da pasta onde você armazena seus documentos e clique em “OK”.

Método 4: copiar tabelas manualmente

No entanto, se você não se sentir confortável com o VBA, não há problema em fazer o trabalho manualmente, desde que haja um número limitado de tabelas.

1. Primeiramente, clique no sinal de mais no canto superior esquerdo para selecionar a tabela desejada.
2. Em seguida, pressione “Ctrl + C” para copiá-lo.
3. Em seguida, abra um novo documento.
4. E pressione “Ctrl+V” para colar a tabela em um novo documento.
5. Lembre-se de salvar o novo documento.

Lidar com problemas de documentos

Enquanto continuarmos usando o Word, sempre haverá dano palavra. No entanto, não tema mais. Não é mais um problema incorrigível. Com uma ferramenta de recuperação qualificada, você tem grandes chances de recuperar todos os seus dados valiosos.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo xlsx corrompido e pdf reparar produtos de software. Para mais informações visite www.datanumen.com