Počítajte slová pri výbere
Toto makro Word VBA bude počítať počet slov vo výbere. Pokiaľ nevyberiete, bude počítať počet slov v celom dokumente.
Sub WordCount () 'počíta celý dokument, potom počet slov na výber (ak je niečo vybraté) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdStatisticCharacters) Celý dokument obsahuje: „& vbCrLf & nWordsCount &“ slová a „& vbCrLf & _ nCharCount &“ znaky bez medzier “,„ počet slov “teraz zobrazuje počet slov pre vybratý text, ak je vybraný.Words.Count> = 1 A Selection.Type wdSelectionIP Then nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticChar Character) MsgBox "Vybratý text obsahuje:" & vbCrLf & nWordsCount & "slová a" & vB & medzery ",," Počet slov (výber) "Koniec, ak Koniec Sub
