Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
Dim oRng As Range
Dim dblSize As Double
  For Each oPar In ActiveDocument.Paragraphs
  Set oRng = oPar.Range
  With oRng
    .MoveEnd wdCharacter, -1
    While .Information(wdFirstCharacterLineNumber) <> .Characters.Last.Information(wdFirstCharacterLineNumber)
      dblSize = .Font.Size
      oRng.Font.Size = dblSize - 0.5
      If .Information(wdFirstCharacterLineNumber) <> .Characters(Len(.Text)).Information(wdFirstCharacterLineNumber) Then
        If oRng.Font.Spacing > -0.3 Then oRng.Font.Spacing = oRng.Font.Spacing - 0.05
        If .Information(wdFirstCharacterLineNumber) <> .Characters(Len(.Text)).Information(wdFirstCharacterLineNumber) Then
          If oRng.Font.Spacing > -0.3 Then oRng.Font.Spacing = oRng.Font.Spacing - 0.05
        End If
      End If
    Wend
  End With
  Next oPar
lbl_Exit:
  Exit Sub
End Sub