Πίνακας περιεχομένων
Μετρήστε λέξεις στην επιλογή
Αυτή η μακροεντολή Word VBA θα μετρήσει τον αριθμό των λέξεων στην επιλογή. Εάν δεν γίνει επιλογή, θα μετρήσει τον αριθμό των λέξεων σε ολόκληρο το έγγραφο.
Sub WordCount () 'μετρά ολόκληρο το έγγραφο, στη συνέχεια Count Word για επιλογή (αν έχει επιλεγεί κάτι) Dim nWordsCount As Long Dim nCharCount As Long nWordsCount = ActiveDocument.Range.ComputeStatistics (wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wddStatisticCatistic) Ολόκληρο το έγγραφο περιέχει: "& vbCrLf & nWordsCount &" λέξεις και "& vbCrLf & _ nCharCount &" χαρακτήρες χωρίς κενά "," Word Word "τώρα εμφανίζει τον αριθμό λέξεων για το επιλεγμένο κείμενο If Selection.Words.Count> = 1 Και Selection.Type wdSelectionIP Στη συνέχεια nWordsCount = Selection.Range.ComputeStatistics (wdStatisticWords) nCharCount = Selection.Range.ComputeStatistics (wdStatisticCharacters) MsgBox "Επιλεγμένο κείμενο περιέχει:" & vbCrLf & nWordsCount & "λέξεις &" και & διαστήματα ",," Καταμέτρηση λέξεων (επιλογή) "Τέλος αν τερματισμός υπο
