Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
  For Each oPar In ActiveDocument.Paragraphs
    If oPar.Range.Words.Count < 2000 Then
      Select Case Trim(oPar.Range.Words(1))
        Case "Resume", "Continuance"
          MsgBox "Classify me how\hat?"
      End Select
    End If
  Next
lbl_Exit:
  Exit Sub
End Sub