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

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:

doc indsæt billeder med filnavn 1

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:

doc indsæt billeder med filnavn 2


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.

Kutools for Word : med mere end 100 praktiske Word-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 60 dage. 

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

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

doc indsæt billeder med filnavn 3

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 .

doc indsæt billeder med filnavn 4

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

doc indsæt billeder med filnavn 5

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


Anbefalede Word-produktivitetsværktøjer

 

Kutools til Word - Mere end 100 avancerede funktioner til Word, spar din 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. ...
Sorter kommentarer efter
Kommentarer (6)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
buenas noches amigo mig har servido mucho su información sinembargo mig surge una duda cree que es mulige incertar billeder en word de la misma manera pero dentro de celdas incertadas?
jairo aguirre
Denne kommentar blev minimeret af moderatoren på webstedet
Hvilken kodelinje vil du ændre, og hvordan får du skrevet filstien før billedet, også kaldet billedteksten (filnavn) er over i stedet for under.
John
Denne kommentar blev minimeret af moderatoren på webstedet
Med Udvalg
.Tekst = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.IndsætAfter vbCrLf
.MoveDown wdLine

Slut med
elmohy
Denne kommentar blev minimeret af moderatoren på webstedet
Er nødt til at tilføje denne .MoveDown wdLine efter .Text=xFile
Sylar
Denne kommentar blev minimeret af moderatoren på webstedet
Wow det er fantastisk! Jeg havde kun brug for filnavnet, så jeg slettede "xPath & "\" &" fra .Text-linjen, og det fungerede perfekt. Tak for dette!
James
Denne kommentar blev minimeret af moderatoren på webstedet
Der opstår et problem, når filnavnet, der skal tilføjes, overstiger 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
billede 5...
JM
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0  Tegn
Foreslåede steder