Ugrás a tartalomra

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:

doc szúrjon be képeket 1 fájlnévvel

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

doc szúrjon be képeket 2 fájlnévvel


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:

doc szúrjon be képeket 3 fájlnévvel

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.

doc szúrjon be képeket 4 fájlnévvel

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:

doc szúrjon be képeket 5 fájlnévvel

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!

Merüljön el az alábbi kiemelt funkciókban vagy kattintson ide, hogy felfedezze a Kutools for Word teljes erejét.

📘 Dokumentummesterség: Felosztott oldalak  /  Dokumentumok egyesítése  /  Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/XLSX)  /  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ásSöpörj el Extra helyek  /  Szakaszszünetek  /   Minden fejléc  /  Szövegdobozok  /  Hiperhivatkozások  /  További eltávolító eszközökért keresse fel az Eltávolítási csoportot

Kreatív betétek: betétlap 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 Beszúrás csoportunkban

???? Precíziós kiválasztás: Határozzon meg konkrét oldalakat  /  asztalok  /  formák  /  címsor bekezdései  /  A Select Group segítségével könnyedén navigálhat

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 ...

Alakítsa át Word feladatait a Kutools segítségével. 👉 Töltse le most 30 napos próbaverzióval 🚀.

 
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
VBA CODE IS VERY USEFULLY MY DATA VALIDATE IMAGES SHARING.
This comment was minimized by the moderator on the site
How can I decrease the overall size of the photo so there are multiple per page?
This comment was minimized by the moderator on the site
Is there a way to insert each picture and file name per page? Sometimes if one picture is too big the file name will then go to the next page or if picture is too small the next picture will be together in one page instead on the next page
This comment was minimized by the moderator on the site
Hello, Rizza,
To insert each picture and file name per page, please apply the following vba code:
Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath As String, xFile As String
    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
                    
                    ' Add the picture
                    Selection.InlineShapes.AddPicture xPath & "\" & xFile, False, True
                    Selection.TypeParagraph
                    
                    ' Add the file path below the picture
                    Selection.TypeText xPath & "\" & xFile
                    Selection.TypeParagraph
                    
                    ' Move to the next page
                    Selection.InsertBreak Type:=wdPageBreak
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub


Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
A problem occurs when the file name to be added exceeds 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
pic5...
This comment was minimized by the moderator on the site
change the file name to 01, 02, 03 and it will work
This comment was minimized by the moderator on the site
Wow this is great! I only needed the file name, so I deleted "xPath & "\" &" from the .Text line and that worked perfectly. Thanks for this!
This comment was minimized by the moderator on the site
Which line of code would you change and how to have the file path written before the picture, aka the caption (filename) is above rather than below.
This comment was minimized by the moderator on the site
With Selection
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

End With
This comment was minimized by the moderator on the site
Have to add this .MoveDown wdLine after .Text=xFile
This comment was minimized by the moderator on the site
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations