Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment insérer plusieurs images avec un 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. Mais, parfois, vous devez insérer le chemin du fichier et les noms en tant que 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 pour Word


Insérez plusieurs images avec le nom de fichier dans le document Word:

Avec Kutools for Word, vous pouvez rapidement insérer plusieurs images d'un dossier ou de plusieurs dossiers dans un document Word avec le chemin d'accès et le nom du fichier.

Doc insérer des images avec le nom de fichier 6

Kutools for Word: avec plus de 100 compléments de Word pratique, libre d'essayer sans limitation dans les jours 60. Cliquez pour télécharger et essai gratuit maintenant!


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 d'accès 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érer 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 Pour exécuter ce code, une fenêtre de navigation s'affiche. Veuillez sélectionner le dossier contenant les images à insérer. Voir la 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 d'accès et le nom du fichier sont insérés en tant que légende, voir la 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 pour Word

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

Kutools for Word : avec plus de 100 add-in Word, gratuit pour essayer sans limitation dans 60 jours.

Après l'installation de Kutools for Word, faites 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 suivantes:

  • (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 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 de fichier de chaque image et le nom est également inséré, voir la capture d'écran:

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

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



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.