Contar o número de palavras em cada sentença no Microsoft Word

Question

No Microsoft Word, gostaria de saber quantas palavras existem em cada sentença; especificamente, se alguma frase tiver mais de 20 palavras.

Existe uma maneira de visualizar essa estatística no MS Word? Estou ciente de que as estatísticas de legibilidade existem, mas não me fornecem as informações desejadas.

    

Answer 1

Essa macro curta percorrerá cada sentença e, se tiver 20 palavras ou mais, será realçada em verde, para que você possa identificá-las e analisá-las facilmente.

Subteste ()

Dim i As Integer Dim j As Integer

i = ActiveDocument.Sentences.Count

Para j = 1 Para i

If ActiveDocument.Sentences(j).Words.Count >= 20 Then ActiveDocument.Sentences(j).HighlightColorIndex = wdBrightGreen

Próximo

End Sub