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.

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.

No ambiente de desenvolvimento VBA clique no menu Inserir e em seguida clique em 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:

Agora feche o Editor do Visual Basic para voltar ao documento através do menu Arquivo >> 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.

Selecione a macro ContaLinhaseColunas e clique em Executar.

Veja o resultado da contagem na Caixa de Mensagem.

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