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

Home > VBA > Contar o número de palavras e exibir a porcentagem



Contar o número de palavras e exibir a porcentagem.



Neste tutorial criaremos uma macro para exibir a porcentagem de palavras baseado no total permitido de palavras que eventualmente um documento pode ter, ou seja, digamos que um determinado documento não pode conter mais do que 1800 palavras, a macro irá mostrar a porcentagem de palavras já foram digitadas.


Siga os seguintes procedimentos:


1- Abra o documento que deseja contar o número de palavras ou crie um novo documento.


2- Acesse o Editor do VBA através da Guia Desenvolvedor e no Grupo Código clique em Visual Basic ou simplesmente use o atalho ALT + F11.



3- No menu Inserir clique em Módulo.


Inserir Módulo


4- Na janela de Código adicione o seguinte código.


Sub contarporcentagem()
MsgBox "Porcentagem de palavras: " & Int(100 / 1800 * Int(ActiveDocument.BuiltInDocumentProperties("Number of Words"))) & "%" & " de 1800."
End Sub



Deverá ficar como na imagem abaixo:


Janela de Código


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


Fechar  Editor do Visual Basic


6- Salve o documento como Documento Habilitado para Macro do Word.


Salvar como Documento Habilitado para Macro do Word


Agora vamos ver a macro em funcionamento.


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


Macros


Selecione a macro contarporcentagem e clique no botão Executar.


Selecionar macro


Veja o resultado:


Caixa de Mensagem

Considerações finais: Para tornar mais prática a execução desta macro, associe ela a um botão de comando ou crie um atalho para acioná-la através do teclado, ou ainda você pode adicioná-la à Barra de Ferramentas de Acesso Rápido.




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