Selection.CreateTextbox (Word)

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. 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.

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