Cartouche CATIA V5 - Script de construction

Bonjour

je suis en train de développer un script pour la construction des cartouches via un script
mon problème concerne le format des textes
Je souhaite pour un texte, le limiter à 20 caractères maximum et là je ne sais pas faire :-(

voici mon bout de script qui défini le texte

Code:

---

1 2 3 4 5 6 7 8 9 10 11

..... ..... Set DR000 = CATIA.ActiveDocument.DrawingRoot 'création d'un parametre DR000.Parameters.CreateString "Description", "" 'creation d'un parametre Description   Set Text = DrwTexts.Add("", OH + .5*Col(3), OV + Row(2)+9) 'Description Text.InsertVariable 0, 0, DrwDocument.Parameters.Item("Description") 'connection au parametre ci-dessus CATFormatTBText "TitleBlock_Text_Title_2" , catBottomCenter, 5 'format du texte "TitleBlock_Text_Title_2", taille Text.SetParameterOnSubString catItalic, 0, 0, 1 ' texte en italic .... ....

---

merci pour votre aide