Cuprins
Numărați cuvinte în selecție
Această macro VBA Word va număra numărul de cuvinte din selecție. Dacă nu se face nicio selecție, aceasta va conta numărul de cuvinte din întregul document.
Sub WordCount () 'contorizează întregul document, apoi Numărul de cuvinte pentru selecție (dacă este selectat ceva) Întregul document conține: „& vbCrLf & nWordsCount &” cuvinte și „& vbCrLf & _ nCharCount &„ caractere fără spații ”,„ Număr de cuvinte ”'arată acum numărul de cuvinte pentru textul selectat Dacă Selection.Words.Count> = 1 Și Selection.Type wdSelectionIP Then nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Textul selectat conține:" & vbCrLf & nWordsCount & "cuvinte și" spații ",," Număr de cuvinte (selecție) "Sfârșit Dacă se termină Sub
