expression.Shrink
expression Required. An expression that returns one of the objects in the Applies To list.
Example
As it applies to the Font object.
This example inserts a line of increasingly smaller Z's in a new document.
Set myRange = Documents.Add.Content
myRange.Font.Size = 45
For Count = 1 To 5
myRange.InsertAfter "Z"
For Count2 = 1 to 3
myRange.Characters(Count).Font.Shrink
Next Count2
Next Count
As it applies to the Selection object.
This example reduces the font size of the selected text by one size.
If Selection.Type = wdSelectionNormal Then
Selection.Font.Shrink
Else
MsgBox "You need to select some text."
End If