Microsoft Office Forums - View Single Post - Coloring of textbox contents starting from a certain number of words

Maxx · 04-17-2021, 12:50 AM

Hello all,

below macro colors all letters of a word file in red, as soon as the word count exceeds the value ten. However, I would like this not to be counted for the entire text of a Word document, but to count and color separately for ten textboxes that are in a Word document. Can anyone help me with this? Thanks in advance!

Code:

Sub AutoOpen()
    NumberOfWords
End Sub
 
Sub NumberOfWords()
    Dim lngWords As Long
    Dim myRange As Range
    Dim lngLimit As Long
     
    lngLimit = 10
     
    With Word.Application
        If .Windows.Count > 0 Then
            Set myRange = ActiveDocument.Content
            lngWords = myRange.ReadabilityStatistics(1).Value
            .Caption = Format(lngWords, "##,##0") & " words - Microsoft Word"
            If lngWords > lngLimit Then
                Set myRange = Selection.Range
                myRange.WholeStory
                myRange.Font.ColorIndex = wdRed
            Else
                Set myRange = Selection.Range
                myRange.WholeStory
                myRange.Font.ColorIndex = wdBlack
            End If
        Else
            .Caption = "Microsoft Word"
        End If
        .OnTime Now + TimeValue(OnTm(lngWords)), "NumberOfWords"
    End With
End Sub
 
Private Function OnTm(ByVal lngWd As Long) As String
    Select Case lngWd \ 1000
        Case 0 To 10
            OnTm = "00:00:01"
        Case 11 To 20
            OnTm = "00:00:05"
        Case 21 To 30
            OnTm = "00:00:10"
        Case 31 To 40
            OnTm = "00:00:15"
        Case Else
            OnTm = "00:00:20"
    End Select
End Function