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

Home > VBA > Contar linhas e colunas de uma tabela


Contar linhas e colunas de uma tabela.



Neste tutorial criaremos uma macro cuja finalidade será contar quantas linhas e colunas uma determinada tabela possui.


Observe a imagem, onde temos um documento com cinco páginas e as linhas da tabela se estendem por todas as páginas.


Tabela com várias linhas


No exemplo acima é fácil identificar quantas colunas a tabela possui, porém, o número de linhas é bem mais difícil, pois, teríamos que contar uma a uma ou então adicionar uma nova coluna e numerá-la na ordem crescente.


Criaremos uma macro que informará em uma caixa de mensagem quantas linhas e colunas a tabela possui.


Então vamos lá, mãos a obra.


Na Guia Desenvolvedor, no Grupo Código clique em Visual Basic.


Visual Basic


No ambiente de desenvolvimento VBA clique no menu Inserir e em seguida clique em Módulo.


Inserir Módulo


Na Janela de Código adicione o seguinte código:


Sub ContaLinhaseColunas()
Dim sLin, sCol, Msg
ActiveDocument.Tables(1).Select
sLin = Selection.Tables(1).Rows.Count
sCol = Selection.Tables(1).Columns.Count
Msg = MsgBox("Linhas = " + CStr(sLin) + " - Colunas = " + CStr(sCol), _
vbOKOnly, "Linhas e Colunas da Tabela")
End Sub



Ficará como na imagem abaixo:


Janela de Código


Agora feche o Editor do Visual Basic para voltar ao documento através do menu Arquivo >> Fechar e voltar para Microsoft Word.


Fechar e Voltar para Microsoft Word


Salve o documento como Documento Habilitado para Macro do Word, em seguida acione a Guia Desenvolvedor e no Grupo Código clique em Macros.


Macros


Selecione a macro ContaLinhaseColunas e clique em Executar.


Selecionar macro


Veja o resultado da contagem na Caixa de Mensagem.


Caixa de Mensagem






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






Conteúdo Correspondente:




eBook Word 2010 VBA

© 2013 Tutoriais Word - Todos os direitos reservados