Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

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

Author Xiaoyang Last modified

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:

  1. Houd Alt + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
  2. 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
  3. Druk op F5 om de code uit te voeren. Er verschijnt een Bladeren-venster waarin je de map kunt selecteren die de afbeeldingen bevat.

    4. Select a folder to insert pictures from

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

    Selected pictures are inserted into the document with filenames

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.

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

  1. Klik op Kutools > Meerdere Afbeeldingen.

    Multi-Picture option on the Kutools tab on the ribbon

  2. 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.

      Insert Pictures dialog box

  3. Nadat de afbeeldingen zijn ingevoegd, wordt het bestandspad en de naam van elke afbeelding als bijschrift toegevoegd.

    Selected pictures are inserted into the document with filenames

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

Beste Office-productiviteitstools

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

🤖 Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

📘 Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

✏ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

🧹 Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

➕ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

🔍 Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

⭐ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

🌍 Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Wilt u deze functies proberen? Download Kutools for Word nu! 🚀
 

✨ Kutools for Office – Één installatie, vijf krachtige tools!

Inclusief Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Krijg alle5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word – 100+ tools voor Word

Gratis downloaden Nu kopen Lees meer over Kutools