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!

---

Anbefalede Word-produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, spar 50 % tid

• Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
• Indsæt flere billeder på tværs af mapper i Word-dokumentet på én gang.
• Flet og kombiner flere Word-filer på tværs af mapper i en med den ønskede rækkefølge.
• Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
• Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...

Læs mere Hent nu Køb