Microsoft Office Forums - View Single Post

gmaxey · 10-04-2014, 05:44 AM

Classify such paragraphs how\what? Paragraphs start with sentences. Sentences start, typically with a capitalized word "Resume", "Continuance."

Code:

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