Discussion :

[coucoucmoi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[coucoucmoi]

j'ai trouvé
Pour info

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;