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

Home > VBA > Contar quantas tabelas o documento possui


Contar quantas tabelas o documento possui.



Neste tutorial criaremos uma macro, cuja função é Contar Quantas Tabelas o Documento Possui.


Imagine um texto várias páginas contendo várias tabelas e você quer saber quantas tabelas este documento possui, seria muito trabalhoso ter que navegar pelo documento contando as tabelas uma a uma. Podemos fazer esta contagem rapidamente com um simples código VBA.


Vamos a um exemplo prático. Observe na imagem abaixo um documento com várias páginas que possui em seu conteúdo várias tabelas. Vamos criar passo a passo uma macro que nos dará em uma caixa de mensagem o número de tabelas que o documento possui.


Documento com tabelas


Acione a Guia Desenvolvedor e no Grupo Código clique em Visual Basic ou use o atalho ALT + F11.


Guia Desenvolvedor


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


Inserir Módulo


Na Janela de Código digite o código abaixo:


Sub ContaTabelas()
'Declara a variável
Dim NumTab As Integer
NumTab = ActiveDocument.Tables.Count
If NumTab > 1 Then
MsgBox "Este documento possui " & NumTab & " tabelas."
ElseIf NumTab = 1 Then
MsgBox "Este documento possui " & NumTab & " tabela."
ElseIf NumTab = 0 Then
MsgBox "Este documento não possui tabelas"
End If
End Sub



Deverá ficar como na imagem abaixo:


Janela de Código


Feche o Editor do Visual Basic para voltar ao documento através do menu Arquivo e clique em Fechar e voltar para Microsoft Word.


Fechar e voltar para Microsoft Word


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


Macros


Selecione a macro ContaTabelas e clique em Executar.


Executar macros


Será exibida uma Caixa de Mensagem informando a quantidade de tabelas que o documento possui.


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