Ir para o conteúdo principal

Como remover linhas e colunas vazias de tabelas no Word?

Como você pode remover todas as linhas e colunas vazias das tabelas no Word? Este tutorial mostrará várias maneiras de remover linhas e colunas vazias de tabelas em documentos do Word.

Remova manualmente todas as linhas e colunas vazias das tabelas

Remova todas as linhas e colunas vazias das tabelas usando o código VBA

Remova todas as linhas e colunas vazias das tabelas com um cliqueboa ideia 3


Remova manualmente todas as linhas e colunas vazias das tabelas

O Microsoft Office Word não fornece uma maneira conveniente de remover linhas e colunas vazias, e você precisa removê-las selecionando manualmente cada linha e coluna vazias e excluindo-as uma por uma.

Etapa 1: selecione a linha ou coluna vazia que deseja excluir. Veja a imagem:

doc-removerowsandcols-1

Etapa 3: abaixo mesa Ferramentas, clique no traçado Aba;

doc-removerowsandcols-2

Etapa 4: no Linhas colunas grupo, clique em Eliminar linhas ou excluir colunas.

doc-removerowsandcols-3


Remova todas as linhas e colunas vazias das tabelas usando o código VBA

A função macro do Word fornece uma maneira muito mais conveniente de remover todas as linhas e colunas vazias das tabelas no documento. Você pode remover todas as linhas e colunas vazias da seguinte maneira.

Passo 1: pressione “Alt-F11” para abrir a janela do 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 em Executedoc-reverso-sinal-6 botão para aplicar o VBA.

O código VBA para remover todas as linhas e colunas vazias das tabelas:

Sub DeleteEmptyTablerowsandcolumns ()
Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
Com ActiveDocument
Para cada tabela em .Tables
n = Tbl.Colunas.Contagem
Para i = n para 1 etapa -1
fVazio = Verdadeiro
Para cada célula em Tbl.Columns (i) .Cells
If Len (cel.Range.Text)> 2 Then
fVazio = Falso
Sair para
Se acabar
Próximo cel
Se fEmpty = True Then Tbl.Columns (i) .Delete
Proximo eu
Próximo Tbl
Terminar com
Com ActiveDocument
Para cada tabela em .Tables
n = Tbl.Linhas.Contagem
Para i = n para 1 etapa -1
fVazio = Verdadeiro
Para cada célula em Tbl.Rows (i) .Células
If Len (cel.Range.Text)> 2 Then
fVazio = Falso
Sair para
Se acabar
Próximo cel
Se fEmpty = True Then Tbl.Rows (i) .Delete
Proximo eu
Próximo Tbl
Terminar com
Definir cel = Nothing: Definir Tbl = Nothing
Application.ScreenUpdating = True
End Sub


Remova todas as linhas e colunas vazias das tabelas com um clique

Kutools for Word oferece a maneira mais conveniente de remover todas as linhas e colunas vazias das tabelas do documento. Você só precisa clicar uma vez e Kutools for Wordde Delete Rows/Columns O utilitário removerá todas as linhas e colunas vazias de todas as tabelas selecionadas ou selecionadas para você rapidamente.

Kutools for Word, com mais de  funções úteis, tornam seus trabalhos mais fáceis. 

Depois de instalar Kutools for Word, faça o seguinte:(Baixe gratuitamente o Kutools para Word agora!)

1. Clique Kutools Plus > Delete Rows/Columns na Table painel.

doc remove linhas em branco, colunas da tabela 1

2. Em seguida, uma caixa de diálogo é exibida, escolha o escopo do qual deseja remover as tabelas na seção Examinar e marque Linha opção e Linha em branco opção, ou verificar Coluna opção e Linha em branco opção conforme você precisa. Se você deseja excluir todas as linhas e colunas em branco, você precisa aplicar esta operação duas vezes.

doc kutools remove as linhas em branco 2  doc kutools remove as linhas em branco 3 

Agora uma caixa de diálogo aparece para lembrá-lo de quantas tabelas foram tratadas, clique OK para fechar, e as linhas e colunas em branco foram removidas das tabelas.
doc kutools remove as linhas em branco 4

Gorjeta.Se você deseja remover linhas em branco da planilha do Excel, o Excluir linhas em branco utilitário do Kutools para Excel pode ajudá-lo.

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 (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi
Many many thanks. Its 100% worked.
This comment was minimized by the moderator on the site
Hi, thanks for the CODE, it worked on a document with only one table.

but when launching it on a word document with different tables from different sizes, i got this error : "Run-time error '5992' Cannot access individual columns in this collection because the table has mixed cell widths"

Can anybody help, please
This comment was minimized by the moderator on the site
Bonjour,

Quand j'exécute le programme, l'erreur suivante s'affiche " Erreur de compilation : Instruction incorrecte à l'extérieur d'une procédure"

Quelqu'un a une solution s'il vous plait ?
This comment was minimized by the moderator on the site
I found this macro and it works great when it comes to a table with single empty rows.
Is it possible to change it to work on a table with split rows as well?
I would very much thank you if you have a solution for me.
This comment was minimized by the moderator on the site
Hi, shimon, I don't not understand your question, please give me examples or describe the question with more details.
This comment was minimized by the moderator on the site
You just saved me a zillion hours of frustration, THANK YOU!
This comment was minimized by the moderator on the site
u know you can just resize the table right? just filter and sort your data to top check how many rows have data, click table tools and the click resize and adjust the last number to whatever you need OR go to the bottom of the table the very last cell and use the tine blue triangle to drag and resize,
This comment was minimized by the moderator on the site
Except I have multiple page document with a table with varying information in each. Furthermore, it is a merge document so different each week. I need an automated method :)
This comment was minimized by the moderator on the site
Hi, the macro is working, BUT:

After deleting all rows, all the columns of the tables with empty rows open up very wide.

How can i fix the code so that this does not happens?


I am using Office 2016.


Thank you!
This comment was minimized by the moderator on the site
Hi All, I am looking for function in word wherein, if I remove specific word then it should remove that row as well.
This comment was minimized by the moderator on the site
Thanks for the code, really useful.
This comment was minimized by the moderator on the site
Is there a macro that will delete a row if only one of the cells in that row is empty or contains a zero?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations