Satura rādītājs
Skaitīt vārdus atlasē
Šis Word VBA makro uzskaitīs atlasīto vārdu skaitu. Ja netiek veikta atlase, tas saskaitīs vārdu skaitu visā dokumentā.
Apakš WordCount () 'tiek skaitīts viss dokuments, pēc tam vārdu skaits atlasīšanai (ja kaut kas ir atlasīts) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdoxStatisticMhart) Visā dokumentā ir vārdi "& vbCrLf & nWordsCount &" un "& vbCrLf & _ nCharCount &" rakstzīmes bez atstarpēm, "Vārdu skaits" tagad parāda vārdu skaitu atlasītajam tekstam If Selection.Words.Count> = 1 Un Selection.Type wdSelectionIP Tad nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Izvēlētais teksts satur:" & vbCrLf & nWordsCount & " atstarpes "," Vārdu skaits (atlase) "Beigt Ja beigas Sub