Overflowing 属性

       

如果为 True,则指定文本框架中的文本溢出该框架。Boolean 类型,只读。

expression.Overflowing

expression   必需。该表达式返回一个 TextFrame 对象。

示例

本示例检查 MyTextBox 中的文本是否超出其文本框架。如果超出,本示例将添加另一个文本框架并链接这两个文本框,以使文本排入第二个文本框架。

Set myTBox = ActiveDocument.Shapes("MyTextBox")
If myTBox.TextFrame.Overflowing = True Then
    Set nextTBox = ActiveDocument.Shapes. _
        AddTextbox(msoTextOrientationHorizontal, 72, 72, 100, 200)
    MyTBox.TextFrame.Next = nextTBox.TextFrame
End If