Hur infogar jag flera bilder med filnamn i Word-dokument?

I Word-dokument kan du snabbt infoga flera bilder samtidigt genom att använda funktionen Infoga. Men ibland måste du infoga filvägen och namnen som bildtext när du sätter in bilderna. Hur kan du hantera den här uppgiften i Word-fil?

Infoga flera bilder med filnamn med hjälp av VBA-kod

Infoga flera bilder med filnamn genom att använda Kutools for Word

Infoga flera bilder med filnamn med hjälp av VBA-kod

Följande VBA-kod kan hjälpa dig att infoga filsökvägen och namnet som bildtext när du sätter in bilderna, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Och klicka sedan på Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen:

VBA-kod: Infoga flera bilder med filnamn:

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. Tryck sedan på F5 för att köra den här koden, ett bläddringsfönster visas, välj den mapp som innehåller bilderna du vill infoga, se skärmdump:

4. Klicka sedan OK -knappen har alla bilder i den valda mappen infogats i Word-dokumentet och filsökvägen och namnet infogas som bildtext vi väl, se skärmdump:

Infoga flera bilder med filnamn genom att använda Kutools for Word

Om du har Kutools för Word, med dess Bilder kan du snabbt infoga flera bilder med filsökväg och namn i Word-dokumentet omedelbart.

När du har installerat Kutools för Word, gör så här:

1. Klicka Kutools > Bilder, se skärmdump:

2. I poppade ut Infoga bilder dialogrutan, gör följande åtgärder:

• (1.) Klicka på Lägg till filer or lägg till mapp knappen för att välja de bilder som du vill infoga;
• (2.) Kontrollera sedan Infoga filsökvägen för varje bild som bildtext alternativ längst ner till vänster i dialogrutan;
• (3.) Och klicka sedan på Insert knapp.

3. När du har infogat bilderna ser du varje bilds filsökväg och namn infogas också, se skärmdump:

Klicka för att ladda ner Kutools for Word och gratis testversion nu!

Rekommenderade Word-produktivitetsverktyg