Tartalomjegyzék
Szavak száma a kiválasztásban
Ez a Word VBA makró megszámolja a kiválasztott szavak számát. Ha nincs kiválasztás, akkor a rendszer a teljes dokumentumban lévő szavak számát számolja.
A Sub WordCount () 'egész dokumentumot számol, majd a Word Count -t a kiválasztáshoz (ha valami ki van választva) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdoxStatisticMhart) A teljes dokumentum a következőket tartalmazza: "& vbCrLf & nWordsCount &" szavak és "& vbCrLf & _ nCharCount &" karakterek szóközök nélkül, "," Word Count "'most a kiválasztott szöveghez tartozó szavak számát jeleníti meg If Selection.Words.Count> = 1 És Selection.Type wdSelectionIP Majd nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Kiválasztott szöveg a következőket tartalmazza:" & vbCrLf & nWordsCount & "" szóközök "," Szavak száma (kiválasztás) "End If End Sub
