Sub Mark_LongSentences()
    Dim iMyCount As Integer
    Dim iWords As Integer
    Dim mySent
    If Not ActiveDocument.Saved Then
        ActiveDocument.Save
    End If
    'Reset counter     iMyCount = 0
    'Set number of words
    iWords = 30
    For Each mySent In ActiveDocument.Sentences
        If mySent.Words.Count > iWords Then
            mySent.Font.Color = wdColorRed
            iMyCount = iMyCount + 1
        End If
    Next
    MsgBox iMyCount & " sentences longer than " & _
        iWords & " words."
End Sub

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

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oWord As Range
Dim oRngFlag As Range
Dim lngCount As Long
  Set oWord = ActiveDocument.Words(1)
  Set oRngFlag = oWord.Duplicate
  Do
    Debug.Print oWord.Characters(1)
    Select Case True
      Case oWord.Characters(1).Text Like "[A-Za-z]"
        lngCount = lngCount + 1
      Case oWord.Characters(1).Text Like "[.,:;\!\?]"
        lngCount = 0
        oWord.Select
        oRngFlag.Start = oWord.End
    End Select
    oWord.Move wdWord, 1
    oRngFlag.End = oWord.End
    If lngCount = 30 Then
      Do
        oRngFlag.MoveEnd wdCharacter, 1
      Loop Until oRngFlag.Characters.Last Like "[.,:;]"
      oRngFlag.HighlightColorIndex = wdBrightGreen
      oRngFlag.Collapse wdCollapseEnd
      lngCount = 0
    End If
  Loop Until oWord.End = ActiveDocument.Range.End - 1
lbl_Exit:
  Exit Sub
End Sub

Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oWord As Range
Dim oRngFlag As Range
Dim lngCount As Long
Dim lngLimit As Long
  lngLimit = InputBox("Enter the long sentence word count", "LIMIT", "30")
  Set oWord = ActiveDocument.Words(1)
  Set oRngFlag = oWord.Duplicate
  Do
    Debug.Print oWord.Characters(1)
    Select Case True
      Case oWord.Characters(1).Text Like "[A-Za-z]"
        lngCount = lngCount + 1
      Case oWord.Characters(1).Text Like "[.,:;\!\?]"
        lngCount = 0
        oWord.Select
        oRngFlag.Start = oWord.End
    End Select
    oWord.Move wdWord, 1
    oRngFlag.End = oWord.End
    If lngCount = lngLimit Then
      Do While Not oRngFlag.Characters.First Like "[A-Za-z]"
        oRngFlag.MoveStart wdCharacter, 1
      Loop
      Do
        oRngFlag.MoveEnd wdCharacter, 1
      Loop Until oRngFlag.Characters.Last Like "[.,:;\!\?" & Chr(13) & "]"
      oRngFlag.HighlightColorIndex = wdBrightGreen
      oRngFlag.Collapse wdCollapseEnd
      lngCount = 0
    End If
  Loop Until oWord.End = ActiveDocument.Range.End - 1
lbl_Exit:
  Exit Sub
End Sub