Shrink 方法

Font 对象：将字号减小为下一个有效的字号。如果选定内容或区域包含多个字号，则每一字号都减小为下一个有效设置。

Selection 对象：将所选内容缩小为下一级的文字单位，文字单位包括：整篇文档、节、段落、句、字及插入点。

expression.Shrink

expression 必需。该表达式返回“应用于”列表中的一个对象。

示例

本示例在一篇新文档中插入一行字号逐渐减小的字母 Z。

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

当应用于 Selection 对象时。

本示例将选定文本的字号减小一个单位。

If Selection.Type = wdSelectionNormal Then
    Selection.Font.Shrink
Else
    MsgBox "You need to select some text."
End If