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

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

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