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
本示例将选定文本的字号减小一个单位。
If Selection.Type = wdSelectionNormal Then
Selection.Font.Shrink
Else
MsgBox "You need to select some text."
End If