Shrink Method Example

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

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