Índice
Contar palavras na seleção
Esta macro Word VBA contará o número de palavras na seleção. Se nenhuma seleção for feita, ele contará o número de palavras em todo o documento.
Sub WordCount () 'conta o documento inteiro, depois a contagem de palavras para seleção (se algo estiver selecionado) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdStatisticCharacters) MsgStatistics (wdStatisticCharacters) Todo o documento contém: "& vbCrLf & nWordsCount &" palavras e "& vbCrLf & _ nCharCount &" caracteres sem espaços ",," Contagem de palavras "'agora mostra a contagem de palavras para o texto selecionado If Selection.Words.Count> = 1 E Selection.Type wdSelectionIP Then nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "O texto selecionado contém:" & vbCrLf & nWordsCount & "palavras e" & vbCrLfount & _Characteres "& vbCrLfount & _C espaços ",," Contagem de palavras (seleção) "End If End Sub
