Порахуйте слова у виділенні
Цей макрос Word VBA підраховує кількість слів у виділеному виді. Якщо вибір не зроблено, він підраховує кількість слів у всьому документі.
Sub WordCount () 'підраховує весь документ, потім кількість слів для виділення (якщо щось вибрано) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistic Весь документ містить: "& vbCrLf & nWordsCount &" слова та "& vbCrLf & _ nCharCount &" символи без пробілів "," Кількість слів "'тепер показує кількість слів для вибраного тексту If Selection.Words.Count> = 1 І Вибір.Тип wdSelectionIP Тоді nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Виділений текст містить:" & vbCrLf & nWords пробіли "," Кількість слів (вибір) "Закінчити, якщо закінчити підп
