Ir para o conteúdo principal

Como converter várias tabelas em texto no Word?

Se houver muitas tabelas no documento e você quiser convertê-las em texto, como fazer isso rapidamente? Este tutorial mostrará algumas maneiras complicadas de converter rapidamente várias tabelas em texto no Word.

Converta tabelas em texto uma por uma

Converta todas as tabelas em texto usando VBA

Converta facilmente várias tabelas em texto com o Kutools

Ferramentas de produtividade recomendadas para Word

Kutools for Word: Integrando IA 🤖, mais de 100 recursos avançados economizam 50% do tempo de processamento de documentos.Download grátis

Office Tab: apresenta guias semelhantes a navegadores no Word (e outras ferramentas do Office), simplificando a navegação em vários documentos.Download grátis


seta azul bolha direita Converta tabelas em texto uma por uma

O Office Word fornece a função de converter uma tabela em texto normal, mas só pode ser aplicada a uma tabela por vez.

Guia Office: traz interfaces com guias para Word, Excel, PowerPoint...
ot palavra meio anúncio 100
Aprimore seu fluxo de trabalho agora.      Saiba Mais       Download grátis

Passo 1: selecione ou posicione o cursor na tabela que deseja converter;

Etapa 2: vá para traçado guia sob Ferramentas de tabelaE clique Converter em texto in Data grupo;

doc-tabelas-para-texto-1

Etapa 3: escolha o estilo de marca para separar as células da tabela;

doc-tabelas-para-texto-2

Etapa 4: clique OK e o Word converterá a tabela em texto;

Etapa 5: repita as etapas 1 a 4 até que todas as tabelas sejam convertidas;


seta azul bolha direita Converta todas as tabelas em texto usando VBA

O VBA pode converter todas as tabelas de documentos em texto.

Etapa 1: pressione “Alt-F11”Para abrir a janela Microsoft Visual Basic for Application;

Etapa 2: clique Módulo na inserção guia, copie e cole o seguinte código VBA na janela Módulo;

Etapa 3: clique Execute botão para aplicar o VBA.

O código VBA para converter todas as tabelas em texto:

Sub TablesToText ()
Dim tbl como tabela
Para cada tbl em ActiveDocument.Tables
tbl.ConvertToText
Separator: = wdSeparateByTabs
Próximo tbl
Definir tbl = Nada
End Sub


seta azul bolha direita Converta facilmente várias tabelas em texto com o Kutools

É demorado converter várias tabelas em texto, uma a uma, e o código VBA sempre fornece uma maneira de separar todas as tabelas no documento. O Kutools pode converter facilmente todas as tabelas de uma seleção ou documento inteiro em texto normal. E usa a mesma interface de função com o Word para fornecer aos usuários maneiras diferentes de separar células de tabela.

Kutools for Word, um complemento útil, inclui grupos de ferramentas para facilitar seu trabalho e aprimorar sua capacidade de processar documentos de texto. Teste grátis por 45 dias! Get It Now!

Clique Kutools >> clique Tabela para Texto in mesa grupo

doc-tabelas-para-texto-3

Para converter várias tabelas de uma seleção ou de todo o documento, selecione uma parte do documento ou todo o documento primeiro e, em seguida, aplique o utilitário clicando em Kutools >> Tabela para Texto na Tabela e escolha o delimitador para o texto normal após a conversão em a caixa de diálogo Converter tabela em texto.

Para mais informações, por favor visite: converter várias tabelas em texto.


Melhores ferramentas de produtividade de escritório

Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!

🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo  /  Reescrever texto  /  Resumir documentos  /  Pergunte para obter informações com base no documento, tudo dentro do Word

📘 Domínio de documentos: Páginas divididas  /  Mesclar Documentos  /  Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...)  /  Conversão em lote para PDF  /  Exportar páginas como imagens  /  Imprima vários arquivos de uma vez...

Edição de conteúdo: Localização e substituição em lote em vários arquivos  /  Redimensionar todas as imagens  /  Transpor linhas e colunas da tabela  /  Converter tabela em texto...

🧹 Limpeza sem esforço: Varrer Espaços extras  /  Quebras de seção  /  Todos os cabeçalhos  /  Caixas de Texto  /  hiperlinks  / Para mais ferramentas de remoção, acesse nosso Remover Grupo...

Inserções criativas: Inserir Mil Separadores  /  Caixas de seleção  /  botões de rádio  /  QR Code  /  Código de barras  /  Tabela de linhas diagonais  /  Legenda da equação  /  Legenda da Imagem  /  Legenda da Tabela  /  Várias fotos  / Descubra mais no Inserir Grupo...

🔍 Seleções de precisão: Identificar páginas específicas  /  tabelas  /  formas  /  parágrafos de título  / Melhore a navegação com mais Selecione recursos...

Aprimoramentos de estrelas: Navegue rapidamente para qualquer local  /  inserir automaticamente texto repetitivo  /  alternar perfeitamente entre janelas de documentos  /  11 ferramentas de conversão...

👉 Quer experimentar esses recursos? Kutools para Word oferece um 60-day free trial, sem limitações! 🚀
 
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
After running the VBA code, MS Word has changed. I no longer have access to VBA tools, and the font is larger. I don't know what else has changed yet. What do I do now?
This comment was minimized by the moderator on the site
Thank you for this! it is appreciated!
This comment was minimized by the moderator on the site
The correct code as follows: Sub TablesToText() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.ConvertToText Separator = wdSeparateByTabs Next tbl Set tbl = Nothing End Sub
This comment was minimized by the moderator on the site
thank you, now it works
This comment was minimized by the moderator on the site
please kindly let me know "what is the code for change only selected tables to text in word?"
This comment was minimized by the moderator on the site
Thank you. It worked.
This comment was minimized by the moderator on the site
Thank you. It works!!
This comment was minimized by the moderator on the site
Here's a code that works: Sub AllTablestoText() ' ' AllTablestoText Macro ' Macro created by Jarosław Michalak ' For Each aTable In ActiveDocument.Tables aTable.ConvertToText wdSeparateByCommas, True Next aTable End Sub Source: http://howto.wikispaces.umb.edu/Convert+all+tables+to+text
This comment was minimized by the moderator on the site
The VBA code isn't working.. when I press F5 for execution, it says "Compile error; syntax error;"
This comment was minimized by the moderator on the site
I think lines 4 and 5 of the VBA code above should be combined: tbl.ConvertToText Separator:=wdSeparateByTabs
This comment was minimized by the moderator on the site
Thank you SImon! It works.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations