[WD-2007] Suppression Drawing object impossible :( [Résolu]

[opacho]

Bonjour,

je sollicite votre aide car j'ai des images redondantes dans un fichier word et je voudrais toutes les supprimer avec une macro. J'ai essayé avec le code qui suit :

Code :

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
 
Sub DeletePictures()
 
' supprime tous les dessins hors texte
    For Each oShape In ActiveDocument.Shapes
        oShape.Delete
    Next
 
' supprime les objets de la couche texte
    For Each oShape In ActiveDocument.InlineShapes
        oShape.Delete
    Next
' supprime les objets graphiques
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^g"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub

Mais certaines images persistent et je n'arrive pas à m'en débarrasser, le fichier word avec les images restantes est en pièce jointe si quelqu'un ç une solution je suis preneur

Merci

[Heureux-oli]

Salut,

Ce n'est pas de la persistance, on dirait que la boucle ne peut pas les supprimer toutes en une seule fois, il faut plusieurs passages.

Code :

1
2
3
4
5
6
7
8
9
10
 
Sub oliii()
Dim oS As Shape
Do
For Each oS In ActiveDocument.Shapes
    oS.Delete
Next oS
Debug.Print ActiveDocument.Shapes.Count
Loop Until ActiveDocument.Shapes.Count = 0
End Sub

Essaie avec une boucle.

[opacho]

La solution marche parfaitement, merci