Comment insérer plusieurs images avec un nom de fichier dans un document Word?

Dans un document Word, vous pouvez insérer rapidement plusieurs images à la fois à l'aide de la fonction Insérer. Mais, parfois, vous devez insérer le chemin du fichier et les noms comme légende lors de l'insertion des images. Comment pourriez-vous gérer cette tâche dans un fichier Word?

Insérer plusieurs images avec le nom de fichier en utilisant le code VBA

Insérez plusieurs images avec un nom de fichier à l'aide de Kutools for Word

Insérer plusieurs images avec le nom de fichier en utilisant le code VBA

Le code VBA suivant peut vous aider à insérer le chemin et le nom du fichier en tant que légende lors de l'insertion des images, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert:

Code VBA: Insérez plusieurs images avec le nom de fichier:

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

3. Puis appuyez F5 clé pour exécuter ce code, une fenêtre Parcourir s'affiche, veuillez sélectionner le dossier contenant les images que vous souhaitez insérer, voir capture d'écran:

4. Puis clique OK bouton, toutes les images du dossier sélectionné ont été insérées dans le document Word, et le chemin et le nom du fichier sont insérés comme légende, voir capture d'écran:

Insérez plusieurs images avec un nom de fichier à l'aide de Kutools for Word

Si vous avez Kutools for Word, Avec son Ajouter des images fonctionnalité, vous pouvez insérer rapidement plusieurs images avec le chemin et le nom du fichier dans le document Word immédiatement.

Après l'installation de Kutools for Word, veuillez faire comme ceci:

1. Cliquez Kutools > Ajouter des images, voir capture d'écran:

2. Dans le sauté Insérer des photos boîte de dialogue, veuillez effectuer les opérations ci-dessous:

• (1.) Cliquez sur Ajouter des fichiers or ajouter un dossier bouton pour sélectionner les images que vous souhaitez insérer;
• (2.) Puis vérifiez Insérer le chemin du fichier de chaque image en tant que légende option en bas à gauche de la boîte de dialogue;
• (3.) Et puis cliquez sur insérer .

3. Après avoir inséré les images, vous verrez le chemin du fichier de chaque image et le nom est également inséré, voir capture d'écran:

Cliquez pour télécharger Kutools for Word et un essai gratuit maintenant !

Meilleurs outils de productivité bureautique

Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !

🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu  /  Réécrire le texte  /  Résumer des documents  /  Demander des informations basé sur le document, le tout dans Word

(I.e. Maîtrise des documents: Pages divisées  /  Fusionner des documents  /  Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...)  /  Conversion par lots en PDF  /  Exporter des pages sous forme d'images  /  Imprimer plusieurs fichiers à la fois

✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers  /  Redimensionner toutes les images  /  Transposer les lignes et les colonnes du tableau  /  Convertir le tableau en texte

🧹 Nettoyage sans effort : balayer Espaces supplémentaires  /  Sauts de section  /  Tous les en-têtes  /  Boîtes de texte  /  Liens hypertextes  / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe

➕ Insertions créatives: Insérer Mille séparateurs  /  Cases à cocher  /  Boutons radio  /  code QR  /  Code barres  /  Tableau des lignes diagonales  /  Légende de l'équation  /  Légende  /  Légende de la table  /  Plusieurs images  / Découvrez-en davantage dans le Insérer un groupe

🔍 Sélections de précision: Localiser pages spécifiques  /  les tables  /  formes  /  paragraphes de titre  / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités

⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit  /  insertion automatique de texte répétitif  /  basculer de manière transparente entre les fenêtres de document  /  11 outils de conversion

👉 Vous voulez essayer ces fonctionnalités ? Kutools for Word propose un Essai gratuit 60-day, sans aucune limite ! 🚀

Téléchargement gratuit     En savoir plus     COMMANDER MAINTENANT