Creating cummalative word counter in word.

[Shorty]

Hi all
need a little help
im tying to create a macro in word that will count each word length and store them in a varible.
For example if it counts the word two it would add one to the under5 varible e.g

If word.length <= 5 then"how ever this is done as this is my problem
under5 = under5 + 1
End If

so in short i need it to create around 5 varibles under5, under10, under15, under20 and under25
go through each word in the document (ebook) and then output the result some how however is easiest but so i can see it.

This is for my GCSE mathmatics invistigation just to give you an idea of why on earth I would want such a thing it is a statistics peice comparing adult books to childrens or in my case ebooks.

Thanks in advance Paul (Shorty)

[da_silvy]

Sub WordStats()
    Dim myText() As String, nWord As String
    Dim to5, to10, to15, to20, to25
 
    ' Reset variables
    to5 = 0
    to10 = 0
    to15 = 0
    to20 = 0
    to25 = 0
 
    Selection.WholeStory
    
    ' Split the document into words
    myText = Split(Selection.Text, " ")
    
    ' Loop through each word
    For Each nWord In myText
        ' Remove any punctuation to prevent it from being counted as part of the word
        nWord = Replace(nWord, "?", "")
        nWord = Replace(nWord, ".", "")
        nWord = Replace(nWord, ",", "")
        nWord = Replace(nWord, "!", "")
        nWord = Replace(nWord, "'", "")
        nWord = Replace(nWord, Chr(34), "")
        
        ' Check which case it falls into
        Select Case Len(nWord)
        Case Is <= 5
            Debug.Print nWord & " (5)"
            to5 = to5 + 1
        Case Is <= 10
            Debug.Print nWord & " (10)"
            to10 = to10 + 1
        Case Is <= 15
            Debug.Print nWord & " (15)"
            to15 = to15 + 1
        Case Is <= 20
            Debug.Print nWord & " (20)"
            to20 = to20 + 1
        Case Is > 20
            Debug.Print nWord & " (25)"
            to25 = to25 + 1
        End Select
    Next
    
    ' Display the results
    MsgBox "Words" & vbCrLf & " < 5 = " & to5 & vbCrLf & " < 10 = " & to10 & vbCrLf & " < 15 = " & to15 & vbCrLf & " < 20 = " & to20 & vbCrLf & " > 20 = " & to25
End Sub

Hope that helps you

[Shorty]

Thanks for your help but when running the macro I get this error.

For Each nWord In myText 'here the debugger comes up with this error msg For Each control variable on arrays must be Variant

i have had a go at debugging it my self but with not much look as im not very expericed in VBA but more just with VB
Again thanks in advance Shorty

[alex_read]

That will be because nWord has been declared as a string variable data type & not a variant, also, all of the counter variables ARE variants. Try this one instead:

[color="#0000A0"]Private[/color] [color="#0000A0"]Sub[/color] CommandButton1_Click()
    [color="#0000A0"]Dim[/color] straryFullDocText() [color="#0000A0"]As[/color] [color="#0000A0"]String[/color]
    [color="#0000A0"]Dim[/color] intElementCounter [color="#0000A0"]As[/color] [color="#0000A0"]Integer[/color]
 
    [color="#0000A0"]Dim[/color] intUnder5Chrs [color="#0000A0"]As[/color] [color="#0000A0"]Integer[/color]
    [color="#0000A0"]Dim[/color] intUnder10Chrs [color="#0000A0"]As[/color] [color="#0000A0"]Integer[/color]
    [color="#0000A0"]Dim[/color] intUnder15Chrs [color="#0000A0"]As[/color] [color="#0000A0"]Integer[/color]
    [color="#0000A0"]Dim[/color] intUnder20Chrs [color="#0000A0"]As[/color] [color="#0000A0"]Integer[/color]
    [color="#0000A0"]Dim[/color] intUnder25Chrs [color="#0000A0"]As[/color] [color="#0000A0"]Integer[/color]
    
    straryFullDocText = Split(ActiveDocument.Content.Text, " ")
    
    [color="#0000A0"]For[/color] intElementCounter = 0 [color="#0000A0"]To[/color] UBound(straryFullDocText)
        Replace straryFullDocText(intElementCounter), "?", ""
        Replace straryFullDocText(intElementCounter), ".", ""
        Replace straryFullDocText(intElementCounter), ",", ""
        Replace straryFullDocText(intElementCounter), "!", ""
        Replace straryFullDocText(intElementCounter), "'", ""
        Replace straryFullDocText(intElementCounter), Chr(34), ""
 
        Select Case Len(straryFullDocText(intElementCounter))
        Case Is <= 5
            intUnder5Chrs = intUnder5Chrs + 1
        Case Is <= 10
            intUnder10Chrs = intUnder10Chrs + 1
        Case Is <= 15
            intUnder15Chrs = intUnder15Chrs + 1
        Case Is <= 20
            intUnder20Chrs = intUnder20Chrs + 1
        Case Is <= 25
            intUnder25Chrs = intUnder25Chrs + 1
        [color="#0000A0"]End[/color] Select
    [color="#0000A0"]Next[/color] intElementCounter
    
    MsgBox "Count of words under 5 characters: " & intUnder5Chrs & vbCrLf & _
    "Count of words under 10 characters: " & intUnder10Chrs & vbCrLf & _
    "Count of words under 15 characters: " & intUnder15Chrs & vbCrLf & _
    "Count of words under 20 characters: " & intUnder20Chrs & vbCrLf & _
    "Count of words under 25 characters: " & intUnder25Chrs
[color="#0000A0"]End[/color] [color="#0000A0"]Sub[/color]

[Shorty]

Again thanks for everybody's help but there is still a problem wich im sure you great lot can solve for me as im so stupid.

When I excute the code it works fine for smaller texts but when I try to count up my ebook I come accross and error that error is Run-time error 6 overflow.

For intElementCounter = 0 To UBound(straryFullDocText) " This is what the debugger highlights

Thanks again for your help and this seams to be coming along beutifully
Oh and by the way my I.T teacher at school coulnt even work this one out.

Below I have attached Half of Alice in wonderland with the macro embeded just open and run the macro and you will see the problem
Thanks in advance Shorty

[alex_read]

Oh and by the way my I.T teacher at school coulnt even work this one out.

If he's a vb programmer then backhand him, if he's a normal IT guy then fair enough, basically the integer data variable type can hold a number from -32,768 to 32,767, if your number you're trying to hold in one of the variables is above this, then you get this error.

Try changing all of the variables from an integer data type to a long data type which can support a greater numeric range from -2,147,483,648 to 2,147,483,647...

[Shorty]

Ah of course how stupid of me of course even I should of known that one anywayz thanks again and now it works like a gem cheers Paul