Grow or Shrink Font

Okay, I think I've found my Word solution. The Word commands are really simple, Grow and Shrink. This isn't the finished product, but it's a start:

Sub Shrink()
'Shrink your selected text by 1 step
If Selection.Type = wdSelectionNormal Then
 Selection.Font.Shrink
Else
 MsgBox "You need to select some text."
End If
End Sub