Sub LongSentencesQuery()
    ' Charles Kenyon
    ' points out long sentences, asks for changes
    ' https://www.msofficeforums.com/174325-post3.html
    '
    Dim iMyCount As Long
    Dim i      As Long
    Const iWords As Long = 30
    Dim rSent  As range
    ' Save active document before making changes
    If Not ActiveDocument.Saved Then
        ActiveDocument.Save
    End If
    'Reset counter     iMyCount = 0
    'Set number of words
    Let iMyCount = ActiveDocument.Sentences.Count
    For i = 1 To iMyCount
        Set rSent = ActiveDocument.Sentences(i)
        If rSent.Words.Count > iWords Then
            MsgBox "The sentence: " & rSent.Text & " is long, consider breaking it up into smaller sentences."
            rSent.Select
            Exit Sub
        End If
    Next i
    Set rSent = Nothing
 End Sub