Contar o número de palavras.
Para Contar o Número de Palavras no Word existe uma ferramenta chamada Contar palavras localizada no Grupo Revisão de Texto da Guia Revisão. Essa ferramenta, além de contar palavras, realiza também a contagem de páginas, caracteres, parágrafos e linhas do documento inteiro ou apenas do texto selecionado. Observe a imagem abaixo:
Neste tutorial criaremos uma macro para contar o número de palavras do documento e exibir o resultado numa Caixa de Mensagem.
Siga os seguintes passos:
1- Abra o documento que deseja contar as 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 nserir clique em Módulo.
4- Na janela de Código adicione o seguinte código.
Sub contarpalavras()
MsgBox "Este documento possui " & Int(ActiveDocument.BuiltInDocumentProperties("Number
of Words")) & " palavra(s)."
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 contarpalavras 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