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

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