Increases the font size to the next available size. If the selection or range contains more than one font size, each size is increased to the next available setting.
expression.Grow
expression Required. An expression that returns a Font object.
Example
This example increases the font size of the fourth word in a new document.
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
This example increases the font size of the selected text.
If Selection.Type = wdSelectionNormal Then
Selection.Font.Grow
Else
MsgBox "You need to select some text."
End If