Shrink Method

Microsoft Word Visual Basic

expression.Shrink

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

ShowAs it applies to the Font object.

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
				

ShowAs it applies to the Selection object.

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