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