WordWrap 属性

决定是否自动换行以适应形状内部。可读写。MsoTriState 类型。

expression  必选。该表达式返回“应用于”列表中的对象之一。

只用于 Kanji 字符。可读写。Long 类型。

本示例将包含文本的矩形添加到 myDocument 中，然后在新的矩形中关闭自动换行。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
        0, 0, 100, 300).TextFrame
    .TextRange.Text = _
        "Here is some test text that is too long for this box"
    .WordWrap = False
End With