Propriedade TextFrame.HasText (Word)
True se a forma especificada tiver texto associado. Boolean somente leitura.
Sintaxe
expressão. HasText
Expressão Uma variável que representa um objeto TextFrame .
Exemplo
Se a segunda forma no documento ativo contiver texto e esse texto ultrapassar seu quadro, este exemplo exibirá uma mensagem.
Dim docActive As Document
Set docActive = ActiveDocument
With docActive.Shapes(2).TextFrame
If .HasText = True Then
If .Overflowing = True Then
Msgbox "Text overflows the frame."
End If
End If
End With
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.