Pour cela, au lieu d'utiliser la fonction d'insertion d'images normales, nous allons utiliser une macro qui va faire le travail.
Pour commencer, créez un document qui porte le même nom que votre document précédé du mot "images" et enregistrez-le dans le même dossier que votre document principal. Par exemple, si votre document se nomme mathèse.docx, le document d'images sera nommé images_mathèse.docx. Insérez dans ce document un tableau de deux colonnes.
Voici une macro que vous mettrez dans votre document principal, et pour laquelle vous mettrez un bouton sur la barre d'outils Accès rapide, ou bien à laquelle vous affecterez un raccourci clavier. Cette macro vous permettra de choisir votre image, de l'insérer dans votre document (en tant qu'InlineShape) et de la lister dans le document images.
Sub liste_images()
'macro écrite par m@rina
Dim mondoc As String, chemin As String, nom_doc_im As String
Dim b_dial As Dialog
Dim nom_fichier As String
Dim image As Object
Dim x As Byte
mondoc = ActiveDocument.Name
chemin = ActiveDocument.Path
nom_doc_im = chemin & "\images_" & mondoc
Documents.Open nom_doc_im
Windows(mondoc).Activate
Set b_dial = Dialogs(wdDialogInsertPicture)
With b_dial
.Display
If .Name = "" Then Exit Sub
nom_fichier = .Name
End With
Set image = Selection.InlineShapes.AddPicture(nom_fichier)
image.Select
Selection.Copy
With Documents(nom_doc_im).Tables(1)
.Rows.Add
x = Documents(nom_doc_im).Tables(1).Rows.Count
.Rows(x).Select
.Rows(x).Cells(1).Range.Paste
.Rows(x).Cells(2).Range.Text = nom_fichier
Documents(nom_doc_im).Save
End With
Windows(mondoc).Activate
End Sub
Si vous souhaitez que les images soient insérées avec lien de manière à pouvoir les modifier et que la modification soit prise en compte dans le document, vous remplacerez
Set image = Selection.InlineShapes.AddPicture(nom_fichier)
par
Set image = Selection.InlineShapes.AddPicture(nom_fichier, True, True)