İçindekiler
Seçimdeki Kelimeleri Say
Bu Word VBA Makrosu, seçimdeki sözcük sayısını sayacaktır. Herhangi bir seçim yapılmazsa, belgenin tamamındaki sözcük sayısını sayar.
Sub WordCount() 'bütün belgeyi sayar, ardından seçim için Word Count (bir şey seçiliyse) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics(wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics " Belgenin tamamı şunları içerir: " & vbCrLf & nWordsCount & " kelimeler ve" & vbCrLf & _ nCharCount & " boşluksuz karakterler", , "Word Count" 'şimdi seçili metin için kelime sayısını göster If Selection.Words.Count >= 1 Ve Selection.Type wdSelectionIP Sonra nWordsCount = Selection.Range.ComputeStatistics(wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics(wdStatisticCharacters) MsgBox "Seçili metin şunları içerir: " & vbCrLf & nWordsCount &C " &Char " &Char " &CrL ve " &CrL" kelimeleri olmadan boşluklar", , "Kelime Sayısı (seçim)" End If End Sub