Hoe voeg je meerdere afbeeldingen met bestandsnaam in een Word-document in?

Author: Xiaoyang Last Modified: 2025-05-29

In een Word-document kun je snel meerdere afbeeldingen tegelijk invoegen met behulp van de functie Invoegen. Er kunnen echter momenten zijn waarop je het bestandspad en de bestandsnamen als bijschriften wilt toevoegen bij het invoegen van de afbeeldingen. Dit kan bijzonder nuttig zijn voor documentatie, rapporten of presentaties waarbij het refereren naar de bron van de afbeelding belangrijk is.

In deze handleiding leiden we je door de stappen om efficiënt meerdere afbeeldingen samen met hun bestandspaden en bestandsnamen als bijschriften in een Word-document in te voegen, zodat je je afbeeldingen effectiever kunt beheren.

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

Voeg meerdere afbeeldingen met bestandsnaam in met behulp van Kutools voor Word

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

De volgende VBA-code helpt je om meerdere afbeeldingen samen met hun bestandspad en naam als bijschriften in te voegen. Volg deze stappen:

Houd Alt + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

Klik op Invoegen > Module, en plak de volgende code in de geopende module:

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

Druk op F5 om de code uit te voeren. Er verschijnt een Bladeren-venster waarin je de map kunt selecteren die de afbeeldingen bevat.

Select a folder to insert pictures from

Klik op OK, en alle afbeeldingen uit de geselecteerde map worden ingevoegd in het Word-document, met hun bestandspad en naam als bijschriften toegevoegd.

Voeg meerdere afbeeldingen met bestandsnaam in met behulp van Kutools voor Word

Het gebruik van Kutools voor Word biedt een efficiënte manier om meerdere afbeeldingen samen met hun bestandspaden en namen in een Word-document in te voegen. Deze functie bespaart tijd en zorgt voor nauwkeurigheid in vergelijking met het handmatig toevoegen van bestandsdetails. Met de Afbeeldingen functie kun je deze taak moeiteloos uitvoeren.

Kutools voor Word,uitgerust met AI 🤖, biedt meer dan 100 handige functies om uw taken te vereenvoudigen.

Nu downloaden

Nadat je Kutools voor Word hebt geïnstalleerd, volg je deze stappen:

Klik op Kutools > Meerdere Afbeeldingen.
In het pop-up Afbeeldingen Invoegen dialoogvenster voer je de volgende acties uit:
- Klik op Bestanden Toevoegen of Map Toevoegen om de afbeeldingen te selecteren die je wilt invoegen.
- Vink de optie Voeg bestandspad van elke afbeelding als bijschrift toe aan de linkerkant onderaan in het dialoogvenster aan.
- Klik op de knop Invoegen om de afbeeldingen in één keer in te voegen.
Nadat de afbeeldingen zijn ingevoegd, wordt het bestandspad en de naam van elke afbeelding als bijschrift toegevoegd.

Kutools voor Word is de ultieme Word-add-in die uw werk stroomlijnt en uw vaardigheden in documentverwerking verbetert. Haal het nu!

Beste productiviteitstools voor kantoor

Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...

🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...

➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...

🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...

⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...