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

Home > VBA > Contar o número de palavras



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:


contar palavras


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.


contar palavras


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:


contar palavras


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


Fechar e Voltar para o Microsoft Word


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


Documento habilitado para Macro do Word


Agora vamos ver a macro em funcionamento.


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


Macro


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


contar palavras


Veja o resultado:


contar palavras


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