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 Required. An expression that returns a Font object.
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