Excluir as linhas vazias de uma tabela

Neste tutorial criaremos uma macro para Excluir as Linhas Vazias de uma Tabela.

Observe a imagem abaixo, onde temos uma tabela com várias linhas em branco e o nosso objetivo é excluir, com apenas um clique, todas essas linhas que estão vazias.

Abra o Editor do Visual Basic acionando a Guia Desenvolvedor e no Grupo Código clique em Visual Basic ou através do atalho ALT + F11.

No ambiente de desenvolvimento, insira um novo módulo, através do menu Inserir >> Módulo.

Na Janela de Código criaremos uma macro e daremos o nome de DeletaLinhasVazias, portanto, adicione o seguinte código.

Option Explicit

Public Sub DeletaLinhasVazias()
Dim sTab As Table
Dim sLin As Range
Dim sCel As Cell
Dim sContador As Long
Dim sNumLinhas As Long
Dim sTextLin As Boolean

' Seleciona a tabela
Set sTab = Application.Selection.Tables(1)

' Define uma variável para o primeiro intervalo de linha
Set sLin = sTab.Rows(1).Range
sNumLinhas = sTab.Rows.Count
Application.ScreenUpdating = False
For sContador = 1 To sNumLinhas
StatusBar = "Row " & sContador
sTextLin = False
For Each sCel In sLin.Rows(1).Cells
If Len(sCel.Range.Text) > 2 Then
sTextLin = True
Exit For
End If
Next sCel
If sTextLin Then
Set sLin = sLin.Next(wdRow)
Else
sLin.Rows(1).Delete
End If
Next sContador
Application.ScreenUpdating = True
End Sub

Ficará como na imagem abaixo:

Para sair do Editor do Visual Basic e voltar ao Word clique no menu Arquivo e em seguida clique em Fechar e voltar para Microsoft Word.

Acione a Guia Desenvolvedor e no Grupo Código clique em Macros.

Selecione a macro DeletaLinhasVazias e clique em Executar.

Veja o resultado, todas as linhas vazias foram excluídas.

Gostou? Se quiser aprender mais eu tenho um e-Book sobre VBA do Word que você pode se interessar.
Confira aqui