Подсчитать количество слов в каждом предложении в Microsoft Word

Question

В Microsoft Word я хотел бы иметь возможность выяснить, сколько слов в каждом предложении; особенно если какие-либо предложения имеют более 20 слов.

Есть ли способ просмотреть такую статистику в MS Word? Я знаю о существовании статистики читабельности, но не предоставляю мне нужную информацию.

Answer 1

Этот короткий макрос будет циклически проходить через каждое предложение, и если оно будет состоять из 20 или более слов, оно будет выделено зеленым цветом, чтобы вы могли легко их идентифицировать и просмотреть.

Суб тест ()

Дим я как целое Дим я как целое

я = ActiveDocument.Приговоры.подсчитывать

Для j = 1 к i

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

следующий

End Sub