Makra Word VBA - počítat slova při výběru

Počítejte slova ve výběru

Toto makro Word VBA bude počítat počet slov ve výběru. Pokud nevyberete, započítá počet slov v celém dokumentu.

Dílčí WordCount () 'počítá celý dokument, pak počet slov pro výběr (pokud je něco vybráno) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdStatisticChar Character) Celý dokument obsahuje: "& vbCrLf & nWordsCount &" slova a "& vbCrLf & _ nCharCount &" znaky bez mezer "," počet slov "nyní zobrazuje počet slov pro vybraný text, pokud Selection.Words.Count> = 1 A Selection.Type wdSelectionIP Then nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticChar Character) MsgBox "Vybraný text obsahuje:" & vbCrLf & nWordsCount & "slova a" & vC a mezery ",," Počet slov (výběr) "Konec Pokud Konec Sub 
wave wave wave wave wave