KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe voegt u meerdere afbeeldingen, inclusief hun bestandsnaam, in een Word-document in?

AuteurXiaoyang Wijzigingsdatum

In een Word-document kunt u snel meerdere afbeeldingen tegelijk invoegen met de functie Invoegen. Soms wilt u echter ook het bestandspad en de bestandsnamen als bijschriften toevoegen bij het invoegen van de afbeeldingen — vooral handig voor documentatie, rapporten of presentaties waarin het belangrijk is om de bron van de afbeelding eenvoudig te kunnen raadplegen.

In deze handleiding begeleiden we u stap voor stap bij het efficiënt invoegen van meerdere afbeeldingen in een Word-document, inclusief hun bestandspad en bestandsnaam als bijschriften, zodat u uw afbeeldingen nog effectiever kunt beheren.

Meerdere afbeeldingen met bestandsnaam invoegen met behulp van VBA-code

Meerdere afbeeldingen met bestandsnaam invoegen met Kutools voor Word

Meerdere afbeeldingen met bestandsnaam invoegen met VBA-code

Met de volgende VBA-code voegt u eenvoudig meerdere afbeeldingen in, compleet met bestandspad en bestandsnaam als bijschriften. 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 u de map met de afbeeldingen kunt selecteren.

    4. Selecteer een map om afbeeldingen uit in te voegen

  4. Klik op OK, en alle afbeeldingen uit de geselecteerde map worden in het Word-document ingevoegd, inclusief hun Bestandspad en bestandsnaam als bijschrift.

    Geselecteerde afbeeldingen worden met bestandsnamen in het document ingevoegd

Meerdere afbeeldingen met bestandsnaam invoegen met behulp van Kutools voor Word

Met Kutools voor Word voegt u op efficiënte wijze meerdere afbeeldingen – inclusief hun bestandspad en bestandsnamen – in een Word-document in. Deze functie bespaart tijd en garandeert meer nauwkeurigheid dan het handmatig toevoegen van bestandsgegevens. Met de Afbeeldingen-functie lukt dit moeiteloos.

Kutools voor Word

Kutools voor Word helpt u alledaagse documenttaken sneller aan te pakken met praktische tools die direct in Microsoft Word zijn ingebouwd – zonder coderen en zonder ingewikkelde installatie.

  • AI-schrijven, -verfijnen, -vertalen en -samenvatten
  • Batch Zoeken en Vervangen in documenten
  • Word-documenten eenvoudig samenvoegen en splitsen
  • Batchconversie tussen Word en PDF
DownloadenMeer informatie

Na installatie van Kutools voor Word, voert u de volgende stappen uit:

  1. Klik op Kutools>Meerdere afbeeldingen.

    Multi-afbeeldingsoptie op het Kutools-tabblad op het lint

  2. Voer in het pop-upvenster Afbeeldingen invoegende volgende handelingen uit:
    • Klik op Bestanden Toevoegen of Map Toevoegen om de afbeeldingen te selecteren die u wilt invoegen.
    • Schakel het selectievakje Voeg het bestandspad van elke afbeelding als bijschrift in in, linksonder in het dialoogvenster.
    • Klik op de knop Invoegenom alle afbeeldingen tegelijk in te voegen.

      Dialoogvenster Afbeeldingen invoegen

  3. Na het invoegen van de afbeeldingen worden het bestandspad en de bestandsnaam van elke afbeelding automatisch als bijschrift toegevoegd.

    Geselecteerde afbeeldingen worden met bestandsnamen in het document ingevoegd

Wilt u soortgelijke taken in Word sneller uitvoeren? Probeer Kutools voor Word en vereenvoudig uw dagelijkse werk!

DownloadenMeer informatie

Beste kantoorproductiviteitstools

Kutools voor Word – Verrijk uw Word-ervaring met meer dan 100 opmerkelijke functies!

🤖KUTOOLS AI-functies: AI-assistent / Realtime-assistent / Super Polish (opmaak behouden) / Super Vertalen (opmaak behouden) / AI-redactie / AI-proeflezen...

📘Documentbeheer: Pagina's splitsen, documenten samenvoegen, selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML…), batchconversie naar PDF…

✏Inhoudsbewerking: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen herschalen / Tabel transponeren: rijen en kolommen omwisselen / Tabel naar tekst converteren...

🧹Moeiteloos opschonen: Veeg overbodige spaties, sectie-einden, tekstvakken en hyperlinks weg. Ga voor nog meer verwijderopties naar de Verwijderen-groep...

➕Creatieve invoegingen: Voeg duizendtalscheidingstekens, selectievakjes, keuzerondjes, QR-codes, streepjescodes en meerdere afbeeldingen in. Ontdek meer in de Invoegen-groep...

🔍Precieze selecties: Selecteer nauwkeurig specifieke pagina's, tabellen, vormen en kopteksten. Verbeter je navigatie met de meer-functies Selecteren…

⭐Sterverhogingen: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Schakelen tussen documentvensters / 11 conversietools Conversie...

🌍Ondersteunt 40+ talen: Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!

Kutools for Word tabbladen op het lint
 
 

Office Tab– Brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoog uw productiviteit met 50 % en bespaar dagelijks honderden muisklikken!

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

Bevat Office Tab Pro·Kutools voor Excel·Kutools voor Outlook·Kutools voor Word·Kutools for PowerPoint

📦 Ontvang alle 5 tools in één pakket | 🔗 Naadloze integratie met Microsoft Office | ⚡ Tijd besparen en verhoog direct uw productiviteit

Beste kantoorproductiviteitstools

Kutools voor Word– 100+ Tools voor Word

Gratis downloadenNu kopenMeer informatie over Kutools