TextFrame.TextRange (Word)

Renvoie un objet Range qui représente le texte du cadre de texte spécifié.

Set myTBox = ActiveDocument.Shapes _ 
 .AddTextBox(Orientation:=msoTextOrientationHorizontal, _ 
 Left:=100, Top:=100, Width:=300, Height:=200) 
myTBox.TextFrame.TextRange = "Test Box"