Word VBA教程:HasText属性

如果该属性值为 True,则指定的图形有相关的文字。Boolean 类型,只读。

VBA示例

如果活动文档中的第二个图形包含文字,并且文字超出了图文框时,本示例显示一条消息。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号