Hogyan lehet több fájlnévvel rendelkező képet beszúrni egy Word dokumentumba?

Szerző: Xiaoyang Utolsó módosítás: 2025-01-07

Egy Word dokumentumba a Beszúrás funkcióval gyorsan beszúrhat több képet egyszerre. Előfordulhat azonban, hogy a képek beillesztésekor fel kell tüntetnie a fájl elérési útját és a fájlneveket feliratként. Ez különösen hasznos lehet dokumentációk, jelentések vagy prezentációk esetében, ahol fontos a képforrásra való hivatkozás.

Ebben az oktatóanyagban végigvezetjük Önt azokon a lépéseken, amelyekkel hatékonyan illeszthet be több képet, azok fájlútvonalaival és fájlneveivel együtt feliratként egy Word-dokumentumba, ami segít a képek hatékonyabb kezelésében.

Szúrjon be több képet fájlnévvel VBA-kóddal

Szúrjon be több képet fájlnévvel a Kutools for Word segítségével

Szúrjon be több képet fájlnévvel VBA kóddal

A következő VBA-kód segít több kép beillesztésében a fájl elérési útjával és nevével együtt feliratként. Kérjük, kövesse az alábbi lépéseket:

Lefog Alt + F11 megnyitni Microsoft Visual Basic for Applications ablak.

Kattints betétlap > Modulok, és illessze be a következő kódot a megnyitott modulba:

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

nyomja meg F5 a kód futtatásához. A Tallózás ablak jelenik meg, ahol kiválaszthatja a képeket tartalmazó mappát.

Válasszon mappát a képek beszúrásához

Kattints OK, és a kiválasztott mappából minden kép bekerül a Word-dokumentumba, és a fájl elérési útja és neve feliratként szerepel.

Szúrjon be több képet fájlnévvel a Kutools for Word segítségével

<p></p> Kutools for Word hatékony módot biztosít több kép beszúrására a fájl elérési útjával és nevével együtt egy Word dokumentumba. Ez a funkció időt takarít meg, és pontosságot biztosít a fájladatok manuális hozzáadásához képest. Azzal együtt képek funkcióval könnyedén elvégezheti ezt a feladatot.

Kutools for Word, AI-val felszerelt 🤖, több mint 100 praktikus funkciót kínál a feladatok egyszerűsítésére.

Töltse le most

Telepítése után Kutools for Word, kovesd ezeket a lepeseket:

Kattints Kutools > Multi-Picture.
A kiugróban Képek beszúrása párbeszédpanelen hajtsa végre a következő műveleteket:
- Kattints Fájlok hozzáadása or Mappa hozzáadása a beszúrni kívánt képek kiválasztásához.
- Ellenőrizd a Írja be az egyes képek fájlútvonalait feliratként opciót a párbeszédpanel bal alsó sarkában.
- Kattintson az betétlap gombot a képek egyidejű beszúrásához.
A képek beillesztése után minden kép fájl elérési útja és neve feliratként kerül hozzáadásra.

Kutools for Word a Word végső bővítménye, amely leegyszerűsíti a munkáját és javítja dokumentumfeldolgozási készségeit. Szerezd meg most!

A legjobb irodai hatékonyságnövelő eszközök

Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!

🤖 A Kutools AI jellemzői: AI asszisztens / Valós idejű asszisztens / Szuper lengyel (megőrző formátum) / Szuper Fordítás (Formátum megőrzése) / AI szerkesztés / AI lektorált...

📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...) / Kötegelt konvertálás PDF-be...

✏ Tartalom Szerkesztés: Kötegelt keresés és csere több fájl között / Minden kép átméretezése / Transzponálja a táblázat sorait és oszlopait / Táblázat konvertálása szöveggé...

🧹 Könnyed tisztítás: Söpörj el Extra helyek / Szakaszszünetek / Szövegdobozok / Hiperhivatkozások / További eltávolító eszközökért keresse fel a eltávolít csoport...

➕ Kreatív betétek: Beszúrás Ezer elválasztó / Jelölőnégyzetek / Rádió gombok / QR-kód / Vonalkód / Több kép / Fedezzen fel többet a betétlap csoport...

???? Precíziós kiválasztás: Pontosan Konkrét oldalak / Asztalok / Alakzatok / Címsor Bekezdések / A navigáció javítása a következővel: több választ jellemzők...

⭐ Star Enhancements: Navigáljon a Bármely helyhez / Ismétlődő szöveg automatikus beszúrása / Váltás a dokumentumablakok között / 11 Átalakítás Eszközök...

Kutools és Kutools Plus fülek a Word szalagon

???? Ki szeretné próbálni ezeket a funkciókat? Töltse le a Kutools for Word alkalmazást most! 🚀

ingyenes letöltés Jegyvásárlás Tudjon meg többet a Kutools for Word programról

A legjobb irodai hatékonyságnövelő eszközök

Kutools for Word - Több mint 100 Word-eszköz

🤖 A Kutools AI jellemzői: AI asszisztens / Valós idejű asszisztens / Szuper lengyel / Szuper fordítás / AI szerkesztés / AI lektorált
📘 Dokumentummesterség: Felosztott oldalak / Dokumentumok egyesítése / Kötegelt konvertálás PDF-be
✏ Tartalom Szerkesztés: Kötegelt keresés és csere / Minden kép átméretezése
🧹 Könnyed tisztítás: Távolítsa el az Extra szóközöket / Távolítsa el a szakaszszakadásokat
➕ Kreatív betétek: Helyezzen be Ezer elválasztót / Helyezze be a jelölőnégyzeteket / QR-kódok létrehozása

ingyenes letöltés Jegyvásárlás Tudjon meg többet a Kutools-ról