Selection.CreateTextbox (Word)

Agrega un cuadro de texto de tamaño predeterminado alrededor de la selección.

Si la selección es un punto de inserción, este método convierte el puntero en un puntero en forma de cruz de manera que el usuario pueda dibujar un cuadro de texto. Usar este método es igual que hacer clic en el botón Cuadro de texto de la barra de herramientas Dibujo.

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