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

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:

doc infoga bilder med filnamn 1

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:

doc infoga bilder med filnamn 2


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.

Kutools för Word : med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsning på 60 dagar. 

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

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

doc infoga bilder med filnamn 3

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.

doc infoga bilder med filnamn 4

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

doc infoga bilder med filnamn 5

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


Rekommenderade Word-produktivitetsverktyg

 

Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...
Sortera kommentarer efter
Kommentarer (6)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Buenas noches amigo me ha servido mucho su información sinembargo mig surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
jairo aguirre
Denna kommentar minimerades av moderatoren på webbplatsen
Vilken kodrad skulle du ändra och hur man får filsökvägen skriven före bilden, alias bildtexten (filnamnet) är över snarare än nedan.
John
Denna kommentar minimerades av moderatoren på webbplatsen
Med urval
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

Sluta med
elmohy
Denna kommentar minimerades av moderatoren på webbplatsen
Måste lägga till denna .MoveDown wdLine efter .Text=xFile
Sylar
Denna kommentar minimerades av moderatoren på webbplatsen
Wow detta är bra! Jag behövde bara filnamnet, så jag tog bort "xPath & "\" &" från .Text-raden och det fungerade perfekt. Tack för detta!
James
Denna kommentar minimerades av moderatoren på webbplatsen
Ett problem uppstår när filnamnet som ska läggas till överstiger 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
bild 5...
JM
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0  Tecken
Föreslagna platser