Font.Shrink Method (Word)
Decreases the font size to the next available size.
Syntax
expression .Shrink
expression A variable that represents a Font object.
Remarks
If the selection or range contains more than one font size, each size is decreased to the next available setting.
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