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

Home > VBA > Exibir o número de vezes que o documento foi aberto

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

© 2013 Tutoriais Word - Todos os direitos reservados