HasText Property

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.  

HasText property as it applies to the Cell object.

Returns a Boolean value indicating whether the specified cell contains any text. True if the specified cell contains text. Read-only.

expression.HasText

expression   Required. An expression that returns a Cell object.

HasText property as it applies to the TextFrame object.

MsoTriState

expression.HasText

expression   Required. An expression that returns a TextFrame object.

Example

As it applies to the Cell object.

 If shape one on page one contains a table and the first cell of the table contains text, this example displays the text in a message box.

  With ActiveDocument.Pages(1).Shapes(1)

    ' Check for table.
    If .HasTable Then
        With .Table.Cells(StartRow:=1, StartColumn:=1, _
                EndRow:=1, EndColumn:=1).Item(1)

            ' Check for text in first cell.
            If .HasText Then
                MsgBox "Text from first cell of table: " _
                    & vbCr & .Text
            Else
                MsgBox "No text in first cell."
            End If

        End With
    Else
        MsgBox "No table in shape one."
    End If

End With

As it applies to the TextFrame object.

 If shape two on the first page of the active publication contains text, this example resizes the shape to fit the text.

  With ActiveDocument.Pages(1).Shapes(2).TextFrame
    If .HasText Then .AutoFitText = pbTextAutoFitBestFit
End With