Bonjour,
au cas ou le problème serait toujours d'actualité ou que qq'un d'autre en aurait besoin, voici une macro qui devrait faire d'allaire
Sub Remplacer_Chemin_Par_Champ_INCLUDEPICTURE()
' constante à modifier, l'* correspond à une suite de caractères inconnus
Const Chemin_Image As String = "C:\\*.jpg"
Dim Texte_Remplacement As String
Dim Texte_Doc
Dim Nb_Parag As Long
Dim Num_Parag As Long
Dim Code_De_Champ
' Boucle sur tous les parag en partant de la fin (bug sinon)
Nb_Parag = ActiveDocument.Paragraphs.Count
For Num_Parag = Nb_Parag To 1 Step -1
' Limite la recherche a 1 seul paragaphe à la fois
Set Texte_Doc = ActiveDocument.Paragraphs(Num_Parag).Range
' Recherche le texte (chemin de l'image)
With Texte_Doc.Find
.Text = Chemin_Image ' Recherche le chemins de l'image
.MatchWildcards = True ' obligatoire pour une recherche générique
.Execute
If .Found Then
' Remplace l'\ par 2 \
Texte_Remplacement = Replace(Texte_Doc.Text, "\", "\\" )
' remplace le texte trouvé par le code de champ et le chemin de l'image
Set Code_De_Champ = Texte_Doc.Fields.Add(Texte_Remplacement, Type:=wdFieldIncludePicture, Text:=Texte_Trouve)
End If
End With
Next Num_Parag
End Sub