Comment insérer plusieurs images avec leur nom de fichier dans un document Word ?
Dans un document Word, vous pouvez rapidement insérer plusieurs images à la fois en utilisant la fonction Insérer. Cependant, il peut arriver que vous deviez inclure le chemin du fichier et les noms de fichiers comme légendes lors de l'insertion des images. Cela peut être particulièrement utile pour la documentation, les rapports ou les présentations où il est important de référencer la source des images.
Dans ce tutoriel, nous vous guiderons à travers les étapes pour insérer efficacement plusieurs images ainsi que leurs chemins de fichiers et noms de fichiers comme légendes dans un document Word, vous aidant ainsi à gérer vos images plus efficacement.
Insérer plusieurs images avec leur nom de fichier en utilisant un code VBA
Insérer plusieurs images avec leur nom de fichier en utilisant Kutools pour Word
Insérer plusieurs images avec leur nom de fichier en utilisant un code VBA
Le code VBA suivant vous aide à insérer plusieurs images ainsi que leur chemin de fichier et leur nom comme légendes. Veuillez suivre ces étapes :
- Maintenez Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
- Cliquez sur Insérer > Module, puis collez le code suivant dans le module ouvert :
Sub PicWithCaption() Dim xFileDialog As FileDialog Dim xPath, xFile As Variant On Error Resume Next Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker) If xFileDialog.Show = -1 Then xPath = xFileDialog.SelectedItems.Item(1) If xPath <> "" Then xFile = Dir(xPath & "\*.*") Do While xFile <> "" If UCase(Right(xFile, 3)) = "PNG" Or _ UCase(Right(xFile, 3)) = "TIF" Or _ UCase(Right(xFile, 3)) = "JPG" Or _ UCase(Right(xFile, 3)) = "GIF" Or _ UCase(Right(xFile, 3)) = "BMP" Then With Selection .InlineShapes.AddPicture xPath & "\" & xFile, False, True .InsertAfter vbCrLf .MoveDown wdLine .Text = xPath & "\" & xFile & Chr(10) .MoveDown wdLine End With End If xFile = Dir() Loop End If End If End Sub - Appuyez sur F5 pour exécuter le code. Une fenêtre Parcourir apparaîtra, où vous pourrez sélectionner le dossier contenant les images.
- Cliquez sur OK, et toutes les images du dossier sélectionné seront insérées dans le document Word, avec leur chemin de fichier et leur nom inclus comme légendes.
Insérer plusieurs images avec leur nom de fichier en utilisant Kutools pour Word
L'utilisation de Kutools pour Word offre une méthode efficace pour insérer plusieurs images ainsi que leurs chemins de fichiers et noms dans un document Word. Cette fonctionnalité fait gagner du temps et garantit la précision par rapport à l'ajout manuel des détails des fichiers. Avec sa fonction Images, vous pouvez accomplir cette tâche sans effort.
Après avoir installé Kutools pour Word, suivez ces étapes :
- Cliquez sur Kutools > Multi-Image.
- Dans la fenêtre contextuelle Insérer des images boîte de dialogue, effectuez les opérations suivantes :
- Cliquez sur Ajouter des fichiers ou Ajouter un dossier pour sélectionner les images que vous souhaitez insérer.
- Cochez l'option Insérer le chemin de chaque image comme légende en bas à gauche de la boîte de dialogue.
- Cliquez sur le bouton Insérer pour insérer les images en une seule fois.
- Après avoir inséré les images, le chemin de fichier et le nom de chaque image seront ajoutés comme légende.
Meilleurs outils de productivité pour Office
Kutools pour Word - Élevez votre expérience Word avec plus de 100 fonctionnalités remarquables !
🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais (Conserver le format) / Super Traduire (Conserver le format) / Rédaction IA / Correction AI...
📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter la sélection dans divers formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...
✏ Édition de contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes du tableau / Convertir le tableau en texte...
🧹 Nettoyage sans effort : Éliminer les espaces supplémentaires / Sauts de section / Zones de texte / Liens hypertexte / Pour plus d'outils de suppression, rendez-vous dans le groupe Supprimer...
➕ Insertion créative : Insérer des séparateurs de milliers / Cases à cocher / Boutons radio / Code QR / Code-barres / Images multiples / Découvrez plus dans le groupe Insérer...
🔍 Sélections précises : Identifier des pages spécifiques / Tableaux / Formes / Paragraphes de titre / Améliorez la navigation avec plus de fonctionnalités de sélection...
⭐ Améliorations étoilées : Naviguer vers n'importe quel emplacement / Insertion automatique de texte répétitif / Basculer entre les fenêtres de document /11 outils de conversion...
Meilleurs outils de productivité pour Office
Kutools pour Word - 100+ outils pour Word
- 🤖 Fonctionnalités AI de Kutools : Assistant IA / Assistant en Temps Réel / Super Polonais / Super Traduire / Rédaction IA / Correction AI
- 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
- ✏ Édition de contenu : Recherche et remplacement en lot / Redimensionner toutes les images
- 🧹 Nettoyage sans effort : Supprimer les espaces supplémentaires / Supprimer les sauts de section
- ➕ Insertion créative : Insérer des séparateurs de milliers / Insérer des cases à cocher / Créer des codes QR