वर्ड वीबीए मैक्रोज़ - चयन में शब्दों की गणना करें

चयन में शब्दों की गणना करें

यह वर्ड वीबीए मैक्रो चयन में शब्दों की संख्या की गणना करेगा। यदि कोई चयन नहीं किया जाता है, तो यह पूरे दस्तावेज़ में शब्दों की संख्या की गणना करेगा।

सब वर्डकाउंट() 'पूरे दस्तावेज़ की गणना करता है, फिर चयन के लिए शब्द गणना (यदि कुछ चुना गया है) मंद nWordsCount लंबे मंद के रूप में nCharCount जितनी लंबी nWordsCount = ActiveDocument.Range.ComputStatistics(wdStatisticWords) nCharCount = ActiveDocument.Range.ComputeStatistics (wdStatistics) पूरे दस्तावेज़ में शामिल हैं: " & vbCrLf और nWordsCount और "words and" & vbCrLf & _ nCharCount और "कैरेक्टर विदाउट स्पेस", "वर्ड काउंट" 'अब चयनित टेक्स्ट के लिए वर्ड काउंट दिखाएं यदि चयन। शब्द। गणना> = 1 और Selection.Type wdSelectionIP फिर nWordsCount = Selection.Range.ComputStatistics(wdStatisticWords) nCharCount = Selection.Range.ComputStatistics(wdStatisticCharacters) MsgBox "चयनित टेक्स्ट में शामिल हैं:" & _vbCrLf और nWordsCount & "nWordsCount &" अक्षर बिना vCharकाउंट और "L और" शब्द स्पेस", , "वर्ड काउंट (सिलेक्शन)" एंड इफ एंड एंड सब