Sisällysluettelo
Laske sanat valinnassa
Tämä Word VBA -makro laskee valitun sanan määrän. Jos valintaa ei tehdä, se laskee koko asiakirjan sanojen määrän.
Sub WordCount () 'laskee koko asiakirjan ja sitten sanamäärän valintaa varten (jos jotain on valittu) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdoxStatistCharts) Koko asiakirja sisältää: "& vbCrLf & nWordsCount &" -sanat ja "& vbCrLf & _ nCharCount &" -merkit ilman välilyöntejä, "Word Count" "näyttää nyt valitun tekstin sanamäärän If Selection.Words.Count> = 1 Ja Selection.Type wdSelectionIP Sitten nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Valittu teksti sisältää:" & vbCrLf & nWordsCount & ilman & merkkejä & "& välilyönnit "," Sanamäärä (valinta) "Lopeta Jos Lopeta Al
