Hoe voeg ik meerdere afbeeldingen met bestandsnaam in Word-document in?

In Word-document kunt u snel meerdere afbeeldingen tegelijk invoegen met behulp van de functie Invoegen. Maar soms moet u het bestandspad en de namen als bijschrift invoegen bij het invoegen van de afbeeldingen. Hoe zou u deze taak in Word-bestand kunnen aanpakken?

Voeg meerdere afbeeldingen met bestandsnaam in met behulp van VBA-code

Voeg meerdere afbeeldingen met bestandsnaam in met Kutools voor Word

Voeg meerdere afbeeldingen met bestandsnaam in met behulp van VBA-code

De volgende VBA-code kan u helpen bij het invoegen van het bestandspad en de naam als bijschrift bij het invoegen van de afbeeldingen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. En klik dan Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module:

VBA-code: voeg meerdere afbeeldingen in met bestandsnaam:

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. Druk vervolgens op F5 toets om deze code uit te voeren, een bladervenster wordt weergegeven, selecteer de map met de afbeeldingen die u wilt invoegen, zie screenshot:

4. Dan klikken OK knop, alle afbeeldingen in de geselecteerde map zijn ingevoegd in het Word-document, en het bestandspad en de naam zijn ingevoegd als bijschrift, zie screenshot:

Voeg meerdere afbeeldingen met bestandsnaam in met Kutools voor Word

Als je Kutools for Word, Met Images functie, kunt u snel meerdere afbeeldingen met bestandspad en naam onmiddellijk in het Word-document invoegen.

Na het installeren van Kutools for Word, doe dit als volgt:

1. Klik Kutools > Images, zie screenshot:

2. In de pop-out Afbeeldingen invoegen dialoogvenster, voer de onderstaande bewerkingen uit:

• (1.) Klik Bestanden toevoegen or Map toevoegen knop om de afbeeldingen te selecteren die u wilt invoegen;
• (2.) Controleer dan Voeg het bestandspad van elke foto in als bijschrift optie linksonder in het dialoogvenster;
• (3.) En klik dan Invoegen knop.

3. Nadat u de afbeeldingen hebt ingevoegd, ziet u het bestandspad van elke afbeelding en wordt de naam ook ingevoegd, zie screenshot:

Klik om Kutools voor Word en nu gratis uit te proberen!

---

Aanbevolen Word-productiviteitstools

 

Kutools For Word - Meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

• Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
• Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
• Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
• Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
• Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...

Lees meer Nu downloaden Koop nu jouw