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 for 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 for 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 provperiod nu!

Bästa kontorsproduktivitetsverktyg

Kutools for Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

Dyk in i de markerade funktionerna nedan eller klicka här för att utforska den fulla kraften i Kutools for Word.

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/XLSX)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt ...

✏ Innehållsredigering: Batch Hitta och ersätt över flera filer   /  Ändra storlek på alla bilder   /  Transponera tabellrader och kolumner  /  Konvertera tabell till text ...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /   Alla rubriker  /  Textrutor  /  Hyperlänkar  /  För fler borttagningsverktyg, gå till vår Remove Group

➕ Kreativa inlägg: Insert Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  /  Upptäck mer i vår Insert Group

🔍 Precisionsval: Hitta specifika sidor  /  Tabellerna  /  former  /  rubrikerna  /  Navigera med lätthet med hjälp av vår Select Group

⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg ...

Förvandla dina Word-uppgifter med Kutools. 👉 Ladda ner med 30-dagars provversion nu 🚀.

Läs mer       Gratis nedladdning      Inköp