Discussion :

[Pomalaix]

Bonjour

Je travaille avec Word 2010, et je souhaite accéder au texte d'un Wordart, par exemple pour l'afficher.

Le code suivant fonctionne bien pour un type TextBox, mais ne donne rien s'il s'agit d'un Wordart (ou bien une erreur 5917 si je retire "On error resume next").

Code :

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

1
2
3
4
5
6
Sub demo()    
    On Error Resume Next
    For Each forme In ActiveDocument.Shapes
        MsgBox forme.TextFrame.TextRange.Text
    Next
End Sub

Quelle est la subtilité que j'ai loupée ? (Et pourtant, j'ai fait des heures de recherche )

Merci !

[Sepia]

Salut Pomalaix,

Je viens de partir d'un fichier Word vierge (Word 2010), j'ai inséré du texte, 2 zones de texte et 1 Word Art. Puis j'ai copié ta macro. Pas de pb, elle m'affiche bien le contenu des 2 zones puis du Word Art (sans rien changé à ta macro). Peux-tu essayer avec ce fichier (que je te joins) pour voir, d'abord en mode "Pas à pas" <F8>.

@+

[Pomalaix]

Merci beaucoup pour cette validation, c'est très précieux !

Je suis certain que mes objets problématiques sont bien des Wordart (la propriété type le confirme), mais ils sont peut être intégrés à des groupes ou une blague du même genre.
Je dois malheureusement me consacrer à d'autres priorités, mais je reviendrai mettre la discussion à jour à l'occasion.

Encore merci !

Pom'

[Souriane]

Bonjour Pomalaix,

Voici le code que j'utilise pour faire ce que tu souhaites faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Dim monDoc As Word.Document
    Dim rngContenu As Word.Range
    Dim typeShape As Word.InlineShape
    Dim s As String
 
    Set monDoc = ActiveDocument
    Set rngContenu = monDoc.Content
    For Each typeShape In rngContenu.InlineShapes
        If typeShape.Type = 3 Then
            MsgBox (typeShape.TextEffect.Text)
        End If
    Next

En espérant que ce soit ce que tu voulais?

Bonne chance!

Souriane