supprimer zone de texte word

Bonjour,

je fais un publipostage word depuis delphi7, ok.
Par contre, je voudrais, en fonction de certaines valeurs, supprimer une zone de texte. Je ne sais pas comment avoir le nom, ni comment la supprimer.
Je fais quelque chose comme ca :

Code:

---

1 2 3

MSWord := CreateOleObject('Word.Application'); .... MSWord.ActiveDocument.Shapes('Text Box 10').Select; MSWord.Selection.ShapeRange.Delete;

---

j'ai le message "'Shapes' n'est pas une méthode" ... en vbword (quand on fait créer macro, ca marche :(. Mais ca doit etre différent !

'Text Box 10' étant le nom de la zone de texte une fois le publipostage fait (je ne fais que si une page pour l'instant, car je ne sais pas comment avoir le nom de cette zone).

Merci

j'ai trouvé
Pour info

Code:

---

1 2 3 4 5 6 7 8 9 10 11

for i := 1 to MSWord.ActiveDocument.Shapes.Count do begin sText := COPY(MSWord.ActiveDocument.Shapes.Item(i).TextFrame.TextRange, 0,length('Bon de commission')); If (UPPERCASE(sText) = UPPERCASE('Bon de commission')) then begin MSWord.ActiveDocument.Shapes.Item(i).Select; MSWord.Selection.ShapeRange.Delete; break; end; end;

---