Kako v Wordov dokument vstaviti več slik z imenom datoteke?

V dokumentu Word lahko s funkcijo Vstavi hitro vstavite več slik hkrati. Toda včasih morate pri vstavljanju slik vstaviti pot do datoteke in imena kot napis. Kako ste se lahko spopadli s to nalogo v Wordovi datoteki?

S kodo VBA vstavite več slik z imenom datoteke

Z Kutools for Word vstavite več slik z imenom datoteke

S kodo VBA vstavite več slik z imenom datoteke

Naslednja koda VBA vam lahko pomaga pri vstavljanju poti in imena datoteke kot napis pri vstavljanju slik. Naredite to:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:

Koda VBA: Vstavite več slik z imenom datoteke:

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. Nato pritisnite F5 za zagon te kode se prikaže okno Brskaj, izberite mapo, ki vsebuje slike, ki jih želite vstaviti, glejte sliko zaslona:

4. Nato kliknite OK , vse slike v izbrani mapi so bile vstavljene v Wordov dokument, pot do datoteke pa je vstavljena kot napis, dobro, glej posnetek zaslona:

Z Kutools for Word vstavite več slik z imenom datoteke

Če imate Kutools za Word, Z njegovim slike funkcija, lahko v dokument Word takoj vstavite več slik s potjo do datoteke in imenom.

Po namestitvi Kutools za Word, naredite tako:

1. klik Kutools > slike, glej posnetek zaslona:

2. V izskočil Vstavi slike pogovorno okno, naredite naslednje:

• (1.) Kliknite Dodaj datoteke or dodaj mapo gumb, da izberete slike, ki jih želite vstaviti;
• (2.) Nato preverite Vstavi pot datoteke do vsake slike kot napis možnost na levem dnu pogovornega okna;
• (3.) In nato kliknite Vstavi gumb.

3. Po vstavitvi slik boste videli pot do datoteke vsake slike in tudi ime, glejte posnetek zaslona:

Kliknite za prenos Kutools za Word in brezplačno preskusno različico zdaj!

---

Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

• Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
• V Wordov dokument hkrati vstavite več slik v mape.
• Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
• Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
• Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...

Preberi več Prenesi zdaj Nakup