Font object: Decreases the font size to the next available size. If the selection or range contains more than one font size, each size is decreased to the next available setting.
Selection object: Shrinks the selection to the next smaller unit of text. The progression is as follows: entire document, section, paragraph, sentence, word, insertion point.
expression Required. An expression that returns one of the objects in the Applies To list.
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