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.
Returns an MsoTriState constant indicating whether the specified shape has text associated with it. Read-only.
| MsoTriState can be one of these MsoTriState constants. |
| msoCTrue Not used with this property. |
| msoFalse The specified shape does not have text associated with it. |
| msoTriStateMixed Not used with this property. |
| msoTriStateToggle Not used with this property. |
| msoTrue The specified shape has text associated with it. |
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