Содержание
Подсчет слов в выделенном фрагменте
Этот макрос Word VBA подсчитывает количество слов в выделенном фрагменте. Если выбор не сделан, будет подсчитано количество слов во всем документе.
Sub WordCount () 'подсчитывает весь документ, затем количество слов для выбора (если что-то выбрано) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.RangeB.ComputeStatistics (wdStatisticCharacters) Весь документ содержит: «& vbCrLf & nWordsCount &» слова и «& vbCrLf & _ nCharCount &» символы без пробелов,, «Word Count» 'теперь показывают количество слов для выделенного текста, если Selection.Words.Count> = 1 и Selection.Type wdSelectionIP Затем nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Выбранный текст содержит:" & vbCrLf & nWordsCount & "без слов и символов" & vbCrLharL пробелы ",," Количество слов (выделение) "End If End Sub
