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

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