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.
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:
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
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 ...





