Lang L: none (table-of-contents)
Loe sõnu valikus
See Word VBA makro loendab valitud sõnade arvu. Kui valikut ei tehta, loeb see sõnade arvu kogu dokumendis.
Alam WordCount () 'loeb terve dokumendi, seejärel valib sõna Count (kui midagi on valitud) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdoxStatisticMhart) Kogu dokument sisaldab: "& vbCrLf & nWordsCount &" sõnu ja "& vbCrLf & _ nCharCount &" tähemärke ilma tühikuteta, "Sõnaarv" näitab nüüd valitud teksti sõnade arvu If Selection.Words.Count> = 1 Ja Selection.Type wdSelectionIP Siis nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Valitud tekst sisaldab:" & vbCrLf & nWordsCount & "" tühikud "," Sõnade arv (valik) "End If End Sub
