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

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:

Documento Word

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.

Inserir Tabela

Veja como ficará:

Tabela

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.

Cor da fonte

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.

retirar bordas

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

Visual Basic

6- No ambiente de desenvolvimento do VBA clique em ThisDocument

ThisDocument

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

Janela de Código

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

Janela de Código

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:

Janela de Código

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

Fechar e voltar para  Microsoft 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.

Caixa de Mensagem

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




Conteúdo Correspondente:


eBook Word 2010 VBA

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