Note: The other languages of the website are Google-translated. Back to English

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:

doc afbeeldingen invoegen met bestandsnaam 1

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:

doc afbeeldingen invoegen met bestandsnaam 2


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.

Kutools for Word : met meer dan 100 handige Word-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. 

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

1. Klik Kutools > Images, zie screenshot:

doc afbeeldingen invoegen met bestandsnaam 3

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.

doc afbeeldingen invoegen met bestandsnaam 4

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

doc afbeeldingen invoegen met bestandsnaam 5

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


Aanbevolen Word-productiviteitstools

 

Kutools voor 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 ...
Comments (6)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
jairo aguirre
Deze opmerking is gemaakt door de moderator op de site
Welke regel code zou u wijzigen en hoe u het bestandspad vóór de afbeelding kunt laten schrijven, oftewel het bijschrift (bestandsnaam) staat hierboven in plaats van hieronder.
John
Deze opmerking is gemaakt door de moderator op de site
Met selectie
.Tekst = xBestand
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InvoegenNa vbCrLf
.Omlaag wdLine

Eindigt met
elmohy
Deze opmerking is gemaakt door de moderator op de site
Moet deze .MoveDown wdLine toevoegen na .Text=xFile
Sylar
Deze opmerking is gemaakt door de moderator op de site
Wauw dit is geweldig! Ik had alleen de bestandsnaam nodig, dus ik verwijderde "xPath & "\" &" van de .Text-regel en dat werkte perfect. Bedankt hiervoor!
James
Deze opmerking is gemaakt door de moderator op de site
Er treedt een probleem op wanneer de toe te voegen bestandsnaam groter is dan 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
foto5...
JM
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties