Do Básico ao Avançado
Home  Tutoriais  Artigos  Contato

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.

Tabela com linhas 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.

Guia Desenvolvedor

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

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:

Janela de Código VBA

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.

Fechar e voltar para o Microsoft Word

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

Macros

Selecione a macro DeletaLinhasVazias e clique em Executar.

Executar Macros

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

Tabela com linhas vazias excluídas


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




Conteúdo Correspondente:


eBook Word 2010 VBA

Política de Privacidade  |   © 2013 Tutoriais Word - Todos os direitos reservados