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