Note: The other languages of the website are Google-translated. Back to English

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

Helyezzen be több képet fájlnévvel a Kutools for Word használatával


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


Helyezzen be több képet fájlnévvel a Kutools for Word használatával

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 és az ingyenes próbaverzió letöltéséhez!


Ajánlott Word-termelékenységi eszközök

 

Kutools for Word - Több mint 100 speciális szolgáltatás a Word számára, takarítson meg 50% időt

  • A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
  • Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
  • Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
  • Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
  • Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.
A megjegyzések rendezése szerint
Hozzászólások (7)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
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?
A weboldal moderátora ezt a megjegyzést minimalizálta
Melyik kódsort változtatná meg, és hogyan írhatná a fájl elérési útját a kép elé, vagyis a felirat (fájlnév) nem lent, hanem felül van.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kiválasztással
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

Vége
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezt a .MoveDown wdLine-t hozzá kell adni a .Text=xFile után
A weboldal moderátora ezt a megjegyzést minimalizálta
Hú ez nagyszerű! Csak a fájlnévre volt szükségem, ezért kitöröltem az "xPath & "\" &" szöveget a .Text sorból, és ez tökéletesen működött. Köszönet érte!
A weboldal moderátora ezt a megjegyzést minimalizálta
Probléma akkor fordul elő, ha a hozzáadandó fájlnév meghaladja a 10-et.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
kép5...
A weboldal moderátora ezt a megjegyzést minimalizálta
módosítsa a fájl nevét 01, 02, 03-ra, és működni fog
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi