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.

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:

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

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

Agora vamos ver a macro em funcionamento.

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

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

Veja o resultado:

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