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 – Optimisez votre expérience Word avec plus de 100 fonctionnalités remarquables !
🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (préserver le format) / Super Traduire (préserver le format) / Rédaction IA / Correction AI...
📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Exporter une solution dans différents formats (PDF/TXT/DOC/HTML...) / Conversion en lot vers PDF...
✏ Modification du texte : Recherche et remplacement en lot sur plusieurs fichiers / Redimensionner toutes les images / Transposer le tableau lignes et Colonnes / Convertir le tableau en texte...
🧹 Nettoyage sans effort : Éliminez les espaces supplémentaires / Sauts de section / Zone 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 / Case à cocher / Bouton radio / Code QR / Code-barres / Plusieurs images / Découvrez davantage dans le groupe Insérer...
🔍 Sélection précise : Ciblez des pages spécifiques / Tableaux / Forme / Paragraphe de titre / Améliorez la navigation avec plus de fonctions de Sélectionner...
⭐ Optimisations exclusives : Accéder à n’importe quelle plage / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres du document /11 outils de conversion...
🌍 Prend en charge plus de40 langues : Utilisez Kutools dans la langue de votre choix – Prise en charge de l’Anglais, de l’Espagnol, de l’Allemand, du Français, du Chinois et de bien d’autres encore !
✨ Kutools pour Office – Une installation, cinq outils puissants !
Inclus Office Tab Pro · Kutools pour Excel · Kutools pour Outlook · Kutools pour Word · Kutools pour PowerPoint
📦 Obtenez les5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagnez du temps et augmentez votre productivité instantanément
Meilleurs outils de productivité pour Office
Kutools pour Word – 100+ outils pour Word
- 🤖 Fonctionnalités de Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish / Super Traduire / Rédaction IA / Correction AI
- 📘 Maîtrise des documents : Diviser les pages / Fusionner les documents / Conversion en lot vers PDF
- ✏ Modification du texte : 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
- 🌍 Prend en charge plus de40 langues : Kutools parle votre langue – plus de40 langues prises en charge !