Hogyan illesszünk be több képet fájlnévvel a Word dokumentumba?

A Word dokumentumban gyorsan beszúrhat több képet egyszerre a Beszúrás funkció használatával. De néha be kell illesztenie a fájl elérési útját és nevét feliratként a képek beszúrásakor. Hogyan tudta kezelni ezt a feladatot a Word fájlban?

Helyezzen be több képet fájlnévvel a VBA kód használatával

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

Helyezzen be több képet fájlnévvel a VBA kód használatával

A következő VBA-kód segíthet a fájl elérési útjának és nevének feliratként való beszúrásában a képek beszúrásakor, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba:

VBA kód: Több kép beillesztése fájlnévvel:

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, megjelenik egy Tallózás ablak. Kérjük, válassza ki a mappát, amely tartalmazza a beilleszteni kívánt képeket, lásd a képernyőképet:

4. Ezután kattintson OK gombra, a kiválasztott mappában található összes kép beillesztésre került a Word dokumentumba, és a fájl elérési útja és neve feliratoként kerül be, jól látjuk

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

Ha van Kutools for Word, Annak képek funkcióval gyorsan beilleszthet több képet fájl elérési útjával és nevével a Word dokumentumba.

Telepítése után Kutools for Word, kérjük, tegye a következőket:

1. Kattints Kutools > képek, lásd a képernyőképet:

2. A kiugrott Képek beszúrása párbeszédpanelt, kérjük, hajtsa végre az alábbi műveleteket:

• (1.) Kattintson Fájlok hozzáadása or Mappa hozzáadása gombot a beilleszteni kívánt képek kiválasztásához;
• (2.) Ezután ellenőrizze Helyezze be az egyes képek fájl elérési útját feliratként opció a párbeszédpanel bal alján;
• (3.) Ezután kattintson betétlap gombot.

3. A képek beszúrása után látni fogja az egyes képek fájl elérési útját és a neveket is, lásd a képernyőképet:

Kattintson a Kutools for Word letöltéséhez és az ingyenes próbaverzióhoz 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!

🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása  /  Szöveg átírása  /  Összefoglalja a dokumentumokat  /  Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül

📘 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  /  Oldalak exportálása képként  /  Nyomtasson több fájlt egyszerre...

✏ 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  /  Minden fejléc  /  Szövegdobozok  /  Hiperhivatkozások  / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...

➕ Kreatív betétek: Beszúrás Ezer elválasztó  /  Jelölőnégyzetek  /  Rádió gombok  /  QR-kód  /  Vonalkód  /  Átlós vonal táblázat  /  Egyenletfelirat  /  Képfelirat  /  Táblázat felirata  /  Több kép  / Fedezzen fel többet a Csoport beszúrása...

???? Precíziós kiválasztás: Pontosan konkrét oldalak  /  asztalok  /  formák  /  címsor bekezdései  / A navigáció javítása a következővel: több Jelölje ki a funkciókat...

⭐ Star Enhancements: Gyorsan navigáljon bármely helyre  /  ismétlődő szöveg automatikus beszúrása  /  zökkenőmentesen válthat a dokumentumablakok között  /  11 Konverziós eszközök...

???? Ki szeretné próbálni ezeket a funkciókat? A Kutools for Word kínál a 60 napos ingyenes próba, korlátozások nélkül! 🚀

ingyenes letöltés     KATT ide     Regisztrálok