Note: The other languages of the website are Google-translated. Back to English

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érer plusieurs images avec le nom de fichier en utilisant 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:

doc insérer des images avec le nom de fichier 1

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:

doc insérer des images avec le nom de fichier 2


Insérer plusieurs images avec le nom de fichier en utilisant Kutools for Word

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

Kutools pour Word : avec plus de 100 compléments Word pratiques, essai gratuit sans limitation en 60 jours. 

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

1. CLIQUEZ Kutools > Images, voir capture d'écran:

doc insérer des images avec le nom de fichier 3

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 .

doc insérer des images avec le nom de fichier 4

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:

doc insérer des images avec le nom de fichier 5

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


Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de votre temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Commentaires (6)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
jairo aguirre
Ce commentaire a été minimisé par le modérateur sur le site
Quelle ligne de code changeriez-vous et comment écrire le chemin du fichier avant l'image, c'est-à-dire que la légende (nom du fichier) est au-dessus plutôt qu'en dessous.
John
Ce commentaire a été minimisé par le modérateur sur le site
Avec sélection
.Texte = xFichier
.InlineShapes.AddPicture xPath & "\" & xFile, Faux, Vrai
.InsertAfter vbCrLf
.MoveDown wdLine

Terminer par
elmohy
Ce commentaire a été minimisé par le modérateur sur le site
Il faut ajouter ce .MoveDown wdLine après .Text=xFile
Sylar
Ce commentaire a été minimisé par le modérateur sur le site
Waouh c'est super ! J'avais seulement besoin du nom du fichier, j'ai donc supprimé "xPath & "\" &" de la ligne .Text et cela a parfaitement fonctionné. Merci pour cela!
James
Ce commentaire a été minimisé par le modérateur sur le site
Un problème survient lorsque le nom du fichier à ajouter dépasse 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
photo5...
JM
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0  Personnages
Emplacements suggérés