OVH Cloud OVH Cloud

Extraire le texte d'un SmartArt

12 réponses
Avatar
TedIF
Bonjour

Je tente de récupérer en VBA le texte contenu dans les formes d'un
SmartArt d'un document Word 2007 (ce qui apparaît dans le volet texte).
J'arrive bien à parcourir les n rectangles de mon WordArt, mais
impossible de trouver le texte contenu dans chacun d'eux.

Voici mon code pour parcourir mon graphique

Set iShape = ActiveDocument.InlineShapes(1)
For ctr = 1 To iShape.GroupItems.Count
If iShape.GroupItems.Item(ctr).AutoShapeType = msoShapeRectangle Then
msgbox iShape.GroupItems.Item(ctr).????
End If
Next ctr

Quelle propriété utiliser pour récupérer le texte ?

Merci d'avance

--

Dominique

2 réponses

1 2
Avatar
Geo
Bonjour

Peut-on retrouver dans le parcours des composants du SmartArt, la hiérarchie des textes
comme définie dans le Volet Texte ?



Faut regarder si l'ordre de lecture le permet.
On a bien tous les éléments, lignes de liaison comprises.
A étudier.

--
A+
Avatar
Geo
Re

L'ordre de lecture parait bien se faire selon la hiérarchie, chaque
branche est parcourue, mais à niveau égal c'est l'ordre d'entrée qui
prévaut sur le dessin.

Plutôt qu'un long discours :
http://cjoint.com/?btj56pMQNZ

La lecture se fait dans l'ordre du panneau de gauche et non le dessin
de droite.
Après il reste à programmer tout ça, mais ça nous ramène à nos cours
d'informatique :/

--
A+
1 2