[RaggiTech]

كاتب الموضوع : AhmedEssawy

تعتمد الفكرة على تقسيم النص من خلال حرف المسافة Space أو من خلال الشرطة "-" أو خلافه ، حيث يتم تقسيم النص باستخدام Split وعدد الكلمات في هذا النص هو عدد العناصر في المصفوفة Array الناتجة .

كود :

Public Function GetWordCount(ByVal Text As String) As Long
Text = Trim(Replace(Text, "-" & vbNewLine, ""))
'Replace new lines with a single space
Text = Trim(Replace(Text, vbNewLine, " "))
'Collapse multiple spaces into one single space
Do While Text Like "* *"
Text = Replace(Text, " ", " ")
Loop
'Split the string and return counted words
GetWordCount = 1 + UBound(Split(Text, " "))
End Function