Hvordan indsættes flere billeder med filnavn i Word-dokument?

I Word-dokument kan du hurtigt indsætte flere billeder på én gang ved hjælp af funktionen Indsæt. Men nogle gange skal du indsætte filstien og navne som billedtekst, når du indsætter billederne. Hvordan kunne du håndtere denne opgave i Word-fil?

Indsæt flere billeder med filnavn ved hjælp af VBA-kode

Indsæt flere billeder med filnavn ved hjælp af Kutools til Word

Indsæt flere billeder med filnavn ved hjælp af VBA-kode

Følgende VBA-kode kan hjælpe dig med at indsætte filstien og navnet som billedtekst, når du indsætter billederne, gør venligst som dette:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbne blanke modul:

VBA-kode: Indsæt flere billeder med filnavn:

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. Tryk derefter på F5 nøgle til at køre denne kode, vises et Gennemse-vindue. Vælg den mappe, der indeholder de billeder, du vil indsætte, se skærmbillede:

4. Klik derefter på OK -knappen, alle billederne i den valgte mappe er indsat i Word-dokumentet, og filstien og navnet indsættes som billedtekst godt, se skærmbillede:

Indsæt flere billeder med filnavn ved hjælp af Kutools til Word

Hvis du har Kutools for Word, Med Billeder funktion, kan du hurtigt indsætte flere billeder med filsti og navn i Word-dokumentet.

Efter installation Kutools for Wordskal du gøre som dette:

1. Klik Kutools > Billeder, se skærmbillede:

2. I poppet ud Indsæt billeder dialogboksen, skal du udføre nedenstående handlinger:

• (1.) Klik på Tilføj filer or Tilføj mappe knap for at vælge de billeder, du vil indsætte;
• (2.) Kontroller derefter Indsæt filsti for hvert billede som billedtekst mulighed nederst til venstre i dialogboksen;
• (3.) Og klik derefter på indsatte .

3. Efter indsættelse af billederne vil du også se hvert steds filsti og navn indsættes, se skærmbillede:

Klik for at downloade Kutools til Word og gratis prøveversion nu!

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-assistent: Transformer din skrivning med AI - Generer indhold  /  Omskriv tekst  /  Opsummer dokumenter  /  Spørg for information baseret på Dokument, alt sammen i Word

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...)  /  Batch Konverter til PDF  /  Eksporter sider som billeder  /  Udskriv flere filer på én gang...

✏ Indholdsredigering: Batch Find og erstat på tværs af flere filer  /  Ændr størrelse på alle billeder  /  Transponer tabelrækker og kolonner  /  Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser  /  Afsnit bryder  /  Alle overskrifter  /  Tekstbokse  /  Hyperlinks  / For mere fjernelse af værktøjer, gå til vores Fjern gruppe...

➕ Kreative indlæg: Indsæt Tusind adskillere  /  Afkrydsningsfelter  /  Radio knapper  /  QR kode  /  Stregkode  /  Diagonal linjebord  /  Ligningstekst  /  Billede Caption  /  Tabeltekst  /  Flere billeder  / Oplev mere i Indsæt gruppe...

???? Præcisionsvalg: Find ud af specifikke sider  /  tabeller  /  former  /  overskrifter  / Forbedre navigation med mere Vælg funktioner...

⭐ Stjerneforbedringer: Naviger hurtigt til ethvert sted  /  automatisk indsæt gentagende tekst  /  skifte problemfrit mellem dokumentvinduer  /  11 Konverteringsværktøjer...

???? Vil du prøve disse funktioner? Kutools for Word tilbyder en 60-dages gratis prøveperiode, uden begrænsninger! 🚀

Gratis download     Læs mere     Køb Nu