„Word VBA“ makrokomandos - skaičiuokite pasirinktus žodžius

Skaičiuokite pasirinktus žodžius

Ši „Word VBA“ makrokomanda suskaičiuos pasirinktų žodžių skaičių. Jei nebus pasirinkta, bus skaičiuojamas žodžių skaičius visame dokumente.

Sub WordCount () 'skaičiuoja visą dokumentą, tada žodį Count pasirinkimui (jei kažkas pasirinktas) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdoxStatistMagnet Visame dokumente yra: „& vbCrLf & nWordsCount &“ žodžiai ir „& vbCrLf & _ nCharCount &“ simboliai be tarpų, „Word Count“ dabar rodo pasirinkto teksto žodžių skaičių If Selection.Words.Count> = 1 Ir Selection.Type wdSelectionIP Tada nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Pasirinktame tekste yra:" & vbCrLf & nWordsCount & "& be &" & " tarpai “,„ Žodžių skaičius (pasirinkimas) “Pabaiga, jei pabaiga