CreateTextbox 方法

在所选内容周围添加一个默认大小的文本框。如果所选内容是一个插入点，本方法将鼠标指针设为十字型指针，以便绘制一个文本框。

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

说明

本方法与单击“绘图”工具栏上的“文本框”按钮等效。文本框是一个矩形，并可在其中进行文本编排。

示例

本示例在所选内容周围添加一个文本框，然后改变该文本框线型。

If Selection.Type = wdSelectionNormal Then
    Selection.CreateTextbox
    Selection.ShapeRange(1).Line.DashStyle =msoLineDashDot
End If