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.
Kutools for Word : több mint 100 praktikus Word-bővítménnyel, 60 nap alatt szabadon kipróbálható korlátozás nélkül. |
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...