HasText Property

Applies To

TextFrame object.

Description

True if the specified shape has text associated with it. Read-only Boolean.

Example

If shape two on myDocument contains text, this example displays a message if the text overflows its frame.

Set myDocument = ActiveDocument
With myDocument.Shapes(2).TextFrame
    If .HasText = True Then 
        If .Overflowing = True Then
            Msgbox "Text overflows the frame."
        End If
    End If
End With