Selection.CreateTextbox (Word)

Adiciona uma caixa de texto de tamanho padrão ao redor da seleção.

Se a seleção for um ponto de inserção, esse método transformará o ponteiro em uma cruz para que o usuário possa desenhar uma caixa de texto. O uso desse método é equivalente a clicar no botão Caixa de texto da barra de ferramentas Desenho. Uma caixa de texto é um retângulo com um quadro de texto associado.

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