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

Home > VBA > Excluir as linhas vazias de uma tabela


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

© 2013 Tutoriais Word - Todos os direitos reservados