Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

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

In Word-document kunt u snel meerdere afbeeldingen tegelijk invoegen met behulp van de invoegfunctie. Maar soms moet u het bestandspad en de namen als bijschrift invoegen wanneer u de afbeeldingen invoegt. Hoe kon je omgaan met deze taak in Word-bestand?

Voeg meerdere afbeeldingen met de bestandsnaam in met VBA-code

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


Voeg meerdere afbeeldingen met de bestandsnaam in Word-document:

Doordat uw bureau Kutools for Word, u kunt snel meerdere afbeeldingen uit een map of meerdere mappen invoegen in een Word-document met het pad en de naam van het bestand.

doc voegt afbeeldingen in met de bestandsnaam 6

Kutools for Word: met meer dan 100 handige invoegtoepassingen voor Word, gratis om zonder beperkingen in 60-dagen te proberen. Klik om te downloaden en gratis proef nu!


Voeg meerdere afbeeldingen met de bestandsnaam in met 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 als volgt:

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

2. En klik vervolgens op bijvoegsel > module, kopieer en plak onderstaande code in de geopende lege module:

VBA-code: voeg meerdere afbeeldingen met bestandsnaam in:

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 om deze code uit te voeren, wordt een venster Bladeren weergegeven, selecteer de map die de afbeeldingen bevat die u wilt invoegen, zie screenshot:

doc voegt afbeeldingen in met de bestandsnaam 1

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

doc voegt afbeeldingen in met de bestandsnaam 2


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

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

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

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

1. Klik op Kutools > Afbeeldingenzie screenshot:

doc voegt afbeeldingen in met de bestandsnaam 3

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

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

doc voegt afbeeldingen in met de bestandsnaam 4

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

doc voegt afbeeldingen in met de bestandsnaam 5

Klik om Kutools voor Word te downloaden en nu gratis uitproberen!



Aanbevolen Word-productiviteitstools

Kutools For Word - meer dan 100 geavanceerde functies voor Microsoft Word, sla uw 50% tijd op

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop 1, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, en zo verder ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    jairo aguirre · 27 days ago
    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?