Grow 方法

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

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

示例

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

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