Съдържание
Пребройте думите при подбор
Този Word VBA макрос ще брои броя на думите в селекцията. Ако не е направен избор, той ще отчита броя на думите в целия документ.
Sub WordCount () 'брои целия документ, след това думата Count за избор (ако е избрано нещо) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistic Целият документ съдържа: "& vbCrLf & nWordsCount &" думи и "& vbCrLf & _ nCharCount &" знаци без интервали "," Word Count "'сега показва броя на думите за избрания текст If Selection.Words.Count> = 1 И Selection.Type wdSelectionIP Тогава nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Избран текст съдържа:" & vbCrCf & nw интервали ",," Брой думи (избор) "End If End Sub
