Word VBA教程:Grow方法

将字号增加为下一个有效字体大小。如果选定内容或区域包含有不止一种字号,则每一种字号分别增加为下一个有效字体大小。

expression.Grow

expression   必需。该表达式返回一个 Font对象。

VBA示例

本示例增加新文档第四个单词的字号。


Dim rngTemp As Range
Set rngTemp = Documents.Add.Content
rngTemp.InsertAfter "This is a test of the Grow method."
MsgBox "Click OK to increase the font size of the fourth word."
rngTemp.Words(4).Font.Grow

本示例增加选定文本的字体大小。


If Selection.Type = wdSelectionNormal Then
    Selection.Font.Grow
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号