***----Counting Words----****

[mykg4orce]

How can words be counted in a text box??
similar to the function a word processor has.


Secondly how do count all the words greater than 8 characters in the same text box????

[MartinLiss]

    Dim vArray As Variant
    Dim intIndex As Integer
    Dim intCount As Integer
    
    ' Split the text into words. A problem here is that
    ' each extra space (over one) between words is count _
    ' as a word.
    vArray = Split(Text1.Text, " ")
    
    ' Find those longer than 8
    For intIndex = 0 To UBound(vArray)
        If Len(vArray(intIndex)) > 8 Then
            intCount = intCount + 1
        End If
    Next
        
    MsgBox "Text1 contains " & UBound(vArray) + 1 & " words " _
         & "of which " & intCount & " are longer than 8 characters"

[MartinLiss]

    Dim vArray As Variant
    Dim intIndex As Integer
    Dim intCount As Integer
    Dim intWords As Integer
    
    ' Split the text into words.
    vArray = Split(Text1.Text, " ")
    
    ' Find those longer than 8
    For intIndex = 0 To UBound(vArray)
        If Len(vArray(intIndex)) > 8 Then
            intCount = intCount + 1
        End If
        If Trim(vArray(intIndex)) <> "" Then
            intWords = intWords + 1
        End If
    Next
        
    MsgBox "Text1 contains " & intWords & " words " _
         & "of which " & intCount & " are longer than 8 characters"