Grow Method

expression.Grow

expression    Required. An expression that returns one of the objects in the Applies To list.

Remarks

If the selection or range contains more than one font size, each size is increased to the next available setting.

Example

This example increases the font size of the fourth word in a new textbox.

Sub GrowFont()
    Dim shpText As Shape
    Dim intResponse As Integer

    Set shpText = ActiveDocument.Pages(1).Shapes.AddTextbox( _
        Orientation:=pbTextOrientationHorizontal, Left:=100, _
        Top:=100, Width:=200, Height:=100)

    With shpText.TextFrame.TextRange
        .Text = "This is a test of the Grow method."
        Do Until intResponse = vbNo
            intResponse = MsgBox("Do you want to increase the " & _
                "size of the font?", vbYesNo)
            If intResponse = vbYes Then
                .Words(4).Font.Grow
            End If
        Loop
    End With
End Sub
		

This example increases the font size of the selected text.

Sub IncreaseFontSizeOfSelectedText()
    If Selection.Type = pbSelectionText Then
        Selection.TextRange.Font.Grow
    Else
        MsgBox "You need to select some text."
    End If
End Sub