Discussion :

[Invité]

Il n'y a plus qu'à les supprimer, y'a pas besoin d'ajouter une fonction supplémentaire.

Cela doit être très simple alors. Mais désolé cela dépasse mes compétences.

Bien à vous.

[Arsene12]

Avec ce code, j'obtiens ce que je souhaitais faire au départ, sans supprimer les InlineShapes 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
29
30
31
32
33
34
35
Sub IdentifierLesShapesDUnDocument()
 
Dim DocEnCours As Document
Dim I As Integer, NbSuppressions As Integer
 
    On Error GoTo Fin
 
    Set DocEnCours = ActiveDocument
 
    With DocEnCours
         For I = .InlineShapes.Count To 1 Step -1
 
             If InStr(1, .InlineShapes(I).OLEFormat.ClassType, "Hidden", vbTextCompare) > 0 Then
             ActiveDocument.InlineShapes(I).Select  'ne marche pas
             ActiveDocument.InlineShapes(I).Delete  ' ne marche pas
 
             Else
 
                    stri = ActiveDocument.InlineShapes(I).OLEFormat.Object
                    ActiveDocument.InlineShapes(I).Select
                    ActiveDocument.InlineShapes(I).Delete
                    Selection.TypeText Text:=": " & stri                
 
             End If
 
 
        Next I
    End With
 
    GoTo Fin
 
Fin:
    Set DocEnCours = Nothing
 
End Sub

[Arsene12]

Merci beaucoup pour votre aide. Vous m'avez fourni exactement le code que je cherchais.

Cordialement,

Arsène