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.

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

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

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

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

Selecione a macro ContaTabelas e clique em Executar.

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

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