17-10-12, 01:08 AM
كاتب الموضوع : 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