Word VBA教程:Shrink方法

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

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

expression.Shrink

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

VBA示例

当应用于 Font对象时。

本示例在一篇新文档中插入一行字号逐渐减小的字母 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号