Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
Dim bStyle As Boolean
Dim oRng As Word.Range
  For Each oPar In Selection.Paragraphs
    bStyle = False
    Select Case True
      Case oPar.LeftIndent > 0.4 And oPar.RightIndent > 0.4: bStyle = True
      Case Asc(oPar.Range.Characters.First) = 34
        Set oRng = oPar.Range
        oRng.Start = oRng.Start + 1
        If InStr(oRng.Text, Chr(34)) = 0 Then
          bStyle = True
        ElseIf InStr(oRng.Text, Chr(34)) = Len(oRng.Text) - 1 Then
          bStyle = True
        End If
      Case Else
        'Do nothing
    End Select
    If bStyle Then oPar.Range.Style = "Quote"
  Next oPar
lbl_Exit:
  Exit Sub
End Sub