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.
Kutools for Word : med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsning på 60 dagar. |
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 🚀.










