如果为 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