Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
 Dim oPar As Paragraph
 Dim oRng As Range
   With ActiveDocument
     Set oRng = .Range
     oRng.Start = .Paragraphs(3).Range.Start
   End With
   'Format unnumbered subtitles
   For Each oPar In oRng.Paragraphs
     If oPar.Range.ComputeStatistics(wdStatisticLines) = 1 _
          And oPar.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft _
          And Not oPar.Range Like "*[0-9]*" Then
       oPar.Range.Style = "Body Text"
     End If
   Next oPar
 lbl_Exit:   Set oPar = Nothing
   Exit Sub
 End Sub