Shrink Method

Applies To

Font object, Selection object.

Description

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.

Syntax

expression.Shrink

expression Required. An expression that returns a Font or Selection object.

See Also

Extend method, ExtendMode property, Font property, FormattedText property, Grow method, Size property.

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