Mostrar o número de vezes que o documento foi aberto.

Neste tutorial criaremos uma macro cuja finalidade é Mostrar o Número de Vezes que o Documento foi Aberto.

Sempre que o documento for aberto a macro será automaticamente executada e exibirá em uma Caixa de Mensagem o número de vezes que o documento foi aberto.

1- Abra o documento no qual você deseja criar a macro para fazer a contagem. Aqui estarei usando como exemplo um documento que está gravado em meu computador com o nome Aparece uns "L" no canto da página, como mostra a imagem abaixo:

2- Escolha um lugar qualquer do documento para inserir uma tabela com apenas uma linha e uma coluna. Neste exemplo adicionarei a tabela no final do documento.

Veja como ficará:

3- Agora devemos esconder esta tabela, ou seja, vamos deixá-la oculta para que o usuário não a veja.

Selecione a tabela, e em seguida na Guia Início, no Grupo Fonte altere a cor da fonte para que fique com a mesma cor do plano de fundo do documento, neste nosso exemplo vamos altera a fonte para cor branca.

OBS: Não oculte a tabela através da opção Oculto da Caixa de Diálogo Fonte, pois irá gerar erros em tempo de execução da macro.

4- Agora na Guia Início no Grupo Parágrafo retire as bordas da tabela.

5- Em seguida na Guia Desenvolvedor, no Grupo Código, clique em Visual Basic ou use o atalho ALT + F11.

6- No ambiente de desenvolvimento do VBA clique em ThisDocument

7- Na Janela de Código, em Objeto, selecione Document.

8- Na Janela de Código, em Procedimento, selecione Open.

9- No evento Open adicione o seguinte código:

Private Sub Document_Open()
Set meuDoc = ThisDocument.Tables(1).Cell(Row:=1, Column:=1)
nVezes = Left(meuDoc.Range.Text, Len(meuDoc.Range.Text) - 2)
If nVezes = "" Then nVezes = 0
ThisDocument.Tables(1).Cell(Row:=1, Column:=1).Range = nVezes + 1
ThisDocument.Save
MsgBox "Este documento foi aberto " & nVezes + 1 & " vez(es)", vbOKOnly, "Documento"
End Sub

Veja como deverá ficar:

10- Feche o Editor do Visual Basic para voltar ao Word.

11- Salve e feche o documento e em seguida abra-o novamente. Será exibida a mensagem com o número de vezes que o documento foi aberto.

Considerações Finais: Se você quiser que o número de vezes que o documento foi aberto apareça diretamente no documento é só manter a tabela visível e no código retirar a seguinte linha:

MsgBox "Este documento foi aberto " & nVezes + 1 & " vez(es)", vbOKOnly, "Documento"

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