Adds a default-size text box around the selection. If the selection is an insertion point, this method changes the pointer to a cross-hair pointer so that the user can draw a text box.
expression.CreateTextbox
expression Required. An expression that returns a Selection object.
Remarks
Using this method is equivalent to clicking the Text Box button on the Drawing toolbar. A text box is a rectangle with an associated text frame.
Example
This example adds a text box around the selection and then changes the text box's line style.
If Selection.Type = wdSelectionNormal Then
Selection.CreateTextbox
Selection.ShapeRange(1).Line.DashStyle =msoLineDashDot
End If