C'est un projet assez ambitieux. je vais donc pas te fournir un programme. seulement autant : les images se trouvent dans word dans un objet InlineShape.

ajoutes qq images dans un doc word avant éxécution

Sub GetImages()

Dim SH As InlineShape

MsgBox ActiveDocument.InlineShapes.Count

For Each SH In ActiveDocument.InlineShapes
MsgBox SH.Type
Next

End Sub

Ok merci...

Donc la si je comprends bien, ce code permet de trouver les images dans le document. J'ai écris un petit quelque chose pour remplacer les images trouvées par du texte mais je pense que je m'y prend très mal vu que je n'y connais rien...

Sub GetImagesAndReplaceWithText()

Dim SH As InlineShape

MsgBox ActiveDocument.InlineShapes.Count

For Each SH In ActiveDocument.InlineShapes
MsgBox SH.Type

With Selection.Find
.ActiveDocument.InlineShapes
.Replacement.Text = "TEST de remplacement"
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Next

End Sub


Quelqu'un pourrait m'aiguiller ?merci d'avance !

Sub GetImagesAndReplaceWithText()

Dim SH As InlineShape

MsgBox ActiveDocument.InlineShapes.Count

For Each SH In ActiveDocument.InlineShapes
'MsgBox SH.Type pas besoin, c'était juste pour faire qq chose dans la boucle

With Selection.Find ' tu n'as pas fait Select, donc rien n'est sélectionné
.ActiveDocument.InlineShapes ' superflu car tu vas déjà chercher toutes les images
.Replacement.Text = "TEST de remplacement"
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Next

End Sub