Discussion :

[Arsene12]

Bonjour,

je souhaiterai récupérer le texte situé à l'intérieur d'un objet InlineShapes et que j'affiche dans une fenêtre avec le code :

Code :

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

1
2
3
Dim stri As String
stri = ActiveDocument.InlineShapes(1).OLEFormat.Object
MsgBox stri

Ça commence sans doute par ActiveDocument.InlineShapes(1)....

Merci d'avance pour votre aide.

Cordialement,

[Arsene12]

L'objet provient d'un formulaire que j'ai copié à partuir d'une page HTML.

Je dois peut-être convertir le InLineShape? :

Code :

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

1
2
3
Sub convert()
ActiveDocument.InlineShapes(1).ConvertToShape.OLEFormat.Activate
End Sub

Fic04.docx

Comment puis-je récupérer ensuite le texte qu'y a à l'intérieur?

[Invité]

Code :

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

1
2
3
Dim stri As String
stri = ActiveDocument.InlineShapes(1).OLEFormat.Object
MsgBox stri

Bonjour,

La réponse, c'est stri.

[Arsene12]

Merci beaucoup. Je souhaitai remplacer l'objet InLineShape par son contenu, j'ai grâce à vous trouvé le code :

Code :

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

1
2
3
4
5
6
7
Sub replaceInlineShapeByText()
Dim stri As String
stri = ActiveDocument.InlineShapes(1).OLEFormat.Object
ActiveDocument.InlineShapes(1).Select
ActiveDocument.InlineShapes(1).Delete
Selection.TypeText Text:=stri
End Sub

Lorsque on a plusieurs InLineShapes et qu'on veut tous les remplacer, il faut commencer par la fin :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub replaceAllInlineShapesOfDocumentByText()
 
Dim i As Integer
Dim stri As String
 
    With ActiveDocument
         If .InlineShapes.Count > 0 Then
            For i = .InlineShapes.Count To 1 Step -1
                With .InlineShapes(i).OLEFormat
                    stri = ActiveDocument.InlineShapes(i).OLEFormat.Object
                    ActiveDocument.InlineShapes(i).Select
                    ActiveDocument.InlineShapes(i).Delete
                    Selection.TypeText Text:=": " & stri   
                End With
            Next i
        End If
    End With
 
End Sub

Y'a quand même un problème qui subsiste. Lorsque je copie le formulaire de la page HTML dans Word, j'importe des InLineShapes qui ne sont pas visibles mais que je peux faire apparaitre en cliquant sur Developpeur puis sur mode Création. Je souhaiterai supprimer ces InLineShapes invisibles avant d'exécuter la macro pour pas que le texte qu'ils contiennent vienne s'inscruster dans la page.
Sauriez-vous comment il faut faire svp?

[Invité]

Bonjour,

Je n'ai pas trouvé de propriété Visible sur ce genre d'objet. Mettez en ligne un document avec des objets visibles et invisibles pour voir comment on peut les distinguer.

[Arsene12]

J'aurai du le joindre à la fin de mon message, veuillez m'excuser.

Voici donc le fichier en question :

monFic00.docx

[Invité]

A tester :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Option Explicit
 
Sub IdentifierLesShapesDUnDocument()
 
Dim DocEnCours As Document
Dim I As Integer, NbSuppressions As Integer
 
    On Error GoTo Fin
 
    Set DocEnCours = ActiveDocument
    NbSuppressions = SupprimerLesInlineShapesInvisibles(DocEnCours)
    With DocEnCours
         For I = .InlineShapes.Count To 1 Step -1
             MsgBox .InlineShapes(I).OLEFormat.Object
        Next I
    End With
    MsgBox "Nombre d'InlineShapes invisibles supprimées : " & NbSuppressions, vbInformation
 
    GoTo Fin
 
Fin:
    Set DocEnCours = Nothing
 
End Sub
 
Function SupprimerLesInlineShapesInvisibles(ByVal DocEnCours2 As Document) As Integer
 
Dim J As Integer
 
    SupprimerLesInlineShapesInvisibles = 0
    With DocEnCours2
         For J = .InlineShapes.Count To 1 Step -1
             If InStr(1, .InlineShapes(J).OLEFormat.ClassType, "Hidden", vbTextCompare) > 0 Then
                .InlineShapes(J).Delete
                SupprimerLesInlineShapesInvisibles = SupprimerLesInlineShapesInvisibles + 1
             End If
        Next J
    End With
 
End Function

[Arsene12]

Ça fonctionne uniquement si on exécute la macro avec le fichier en mode création. Sinon, une fenêtre s'affiche disant que les InLineShapes ont été supprimés mais c'est faux : si on clique sur le mode création, les InLineShapes réapparaissent.

DEM1.docx

[Invité]

Ça fonctionne uniquement si on exécute la macro avec le fichier en mode création

Non.

Sinon, une fenêtre s'affiche disant que les InLineShapes ont été supprimés mais c'est faux : si on clique sur le mode création, les InLineShapes réapparaissent.

Non, les InlineShapes cachés ont tous disparus. Il reste bien sûr les InlineShapes de type Text.

[Arsene12]

Chez moi, si je me mets pas en mode création, les InlineShapes ne sont pas supprimés. Je suis sur Word 2010 Enterprise.

Si j'essaye de passer en mode Création au début de la macro avec ActiveDocument.ToggleFormsDesign, la macro s'arrête après avoir enclenché le mode Création.

[Invité]

Chez moi, si je me mets pas en mode création, les InlineShapes ne sont pas supprimés. Je suis sur Word 2010 Enterprise.

De quels InlineShapes s'agit-il ?

[Arsene12]

Les InlineShapes invisibles.

[Invité]

Les InlineShapes invisibles.

Insérez un Debug.Print et activez la fenêtre exécution pour savoir ce que vous récupérez comme ClassType

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
Function SupprimerLesInlineShapesInvisibles(ByVal DocEnCours2 As Document) As Integer
 
Dim J As Integer
 
    SupprimerLesInlineShapesInvisibles = 0
    With DocEnCours2
         For J = .InlineShapes.Count To 1 Step -1
             Debug.Print .InlineShapes(J).OLEFormat.ClassType
             If InStr(1, .InlineShapes(J).OLEFormat.ClassType, "Hidden", vbTextCompare) > 0 Then
                .InlineShapes(J).Delete
                SupprimerLesInlineShapesInvisibles = SupprimerLesInlineShapesInvisibles + 1
             End If
        Next J
    End With
 
End Function

[Arsene12]

Voici ce qu'il apparait dans la fenêtre d’exécution :

Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Text.1
Forms.HTML:Hidden.1
Forms.HTML:Text.1
Forms.HTML:Hidden.1
Forms.HTML:Text.1
Forms.HTML:Hidden.1
Forms.HTML:Hidden.1

[Invité]

Voici ce qu'il apparait dans la fenêtre d’exécution :

Et quand vous le refaites une deuxième fois ?

[Arsene12]

Ça donne la même chose.

[Invité]

Ça donne la même chose.

Vous pourriez mettre en ligne le code que vous utilisez ?

[Arsene12]

Le voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
 
Sub IdentifierLesShapesDUnDocument()
 
Dim DocEnCours As Document
Dim I As Integer, NbSuppressions As Integer
 
    On Error GoTo Fin
 
    Set DocEnCours = ActiveDocument
    NbSuppressions = SupprimerLesInlineShapesInvisibles(DocEnCours)
    With DocEnCours
         For I = .InlineShapes.Count To 1 Step -1
             MsgBox .InlineShapes(I).OLEFormat.Object
        Next I
    End With
    MsgBox "Nombre d'InlineShapes invisibles supprimées : " & NbSuppressions, vbInformation
 
    GoTo Fin
 
Fin:
    Set DocEnCours = Nothing
 
End Sub
 
Function SupprimerLesInlineShapesInvisibles(ByVal DocEnCours2 As Document) As Integer
 
Dim J As Integer
 
    SupprimerLesInlineShapesInvisibles = 0
    With DocEnCours2
         For J = .InlineShapes.Count To 1 Step -1
             Debug.Print .InlineShapes(J).OLEFormat.ClassType
             If InStr(1, .InlineShapes(J).OLEFormat.ClassType, "Hidden", vbTextCompare) > 0 Then
                .InlineShapes(J).Delete
                SupprimerLesInlineShapesInvisibles = SupprimerLesInlineShapesInvisibles + 1
             End If
        Next J
    End With
 
End Function

[Invité]

OK. Ce code est bien sûr dans un .docm et vous l'appliquez sur le fichier actif dans la fenêtre Word.
Le code montre toutefois qu'il est capable de discerner les deux types. Au lieu de supprimer les objets cachés, il vous suffirait de récupérer la valeur de ceux visibles à l'aide d'une matrice ou directement en changeant la nature de la fonction pour la rendre String et ajouter les contenus des objets visibles dans celle-ci.

[Arsene12]

Avec le code suivant, la msgBox n'apparait que pour afficher le contenu des InLineShapes qui sont cachés :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
Sub IdentifierLesShapesDUnDocument()
 
Dim DocEnCours As Document
Dim I As Integer, NbSuppressions As Integer
 
    On Error GoTo Fin
 
    Set DocEnCours = ActiveDocument
   ' NbSuppressions = SupprimerLesInlineShapesInvisibles(DocEnCours)
    With DocEnCours
         For I = .InlineShapes.Count To 1 Step -1
 
             If InStr(1, .InlineShapes(I).OLEFormat.ClassType, "Hidden", vbTextCompare) > 0 Then
             MsgBox .InlineShapes(I).OLEFormat.Object
                ActiveDocument.InlineShapes(I).Delete
             End If
 
        Next I
    End With
 
    GoTo Fin
 
Fin:
    Set DocEnCours = Nothing
 
End Sub

Il n'y a plus qu'à les supprimer, y'a pas besoin d'ajouter une fonction supplémentaire. Mais le ActiveDocument.InlineShapes(I).Delete ne fonctionne pas.