Skip i'r prif gynnwys

Sut i fewnosod sawl llun gydag enw ffeil yn nogfen Word?

Yn nogfen Word, gallwch fewnosod sawl llun yn gyflym ar unwaith trwy ddefnyddio'r swyddogaeth Mewnosod. Ond, weithiau, mae angen i chi fewnosod y llwybr ffeiliau a'r enwau fel pennawd wrth fewnosod y lluniau. Sut allech chi ddelio â'r dasg hon yn ffeil Word?

Mewnosodwch sawl llun gydag enw ffeil trwy ddefnyddio cod VBA

Mewnosodwch luniau lluosog gydag enw ffeil trwy ddefnyddio Kutools ar gyfer Word


Mewnosodwch sawl llun gydag enw ffeil trwy ddefnyddio cod VBA

Gall y cod VBA canlynol eich helpu i fewnosod llwybr y ffeil a'i enwi fel pennawd wrth fewnosod y delweddau, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored:

Cod VBA: Mewnosodwch sawl llun gydag enw ffeil:

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. Yna pwyswch F5 allwedd i redeg y cod hwn, mae ffenestr Pori yn cael ei harddangos, dewiswch y ffolder sy'n cynnwys y delweddau rydych chi am eu mewnosod, gweler y screenshot:

mewnosodwch doc delweddau gydag enw ffeil 1

4. Yna cliciwch OK botwm, mae'r holl ddelweddau yn y ffolder a ddewiswyd wedi'u mewnosod yn y ddogfen Word, ac mae llwybr ac enw'r ffeil wedi'i fewnosod fel pennawd rydyn ni'n dda, gweler y screenshot:

mewnosodwch doc delweddau gydag enw ffeil 2


Mewnosodwch luniau lluosog gydag enw ffeil trwy ddefnyddio Kutools ar gyfer Word

Os oes gennych Kutools am Word, Gyda'i Mae delweddau nodwedd, gallwch fewnosod sawl llun yn gyflym gyda llwybr ffeil ac enw yn y ddogfen Word ar unwaith.

Kutools am Word : gyda mwy na 100 o ychwanegiadau Word defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 60 diwrnod. 

Ar ôl gosod Kutools am Word, gwnewch fel hyn:

1. Cliciwch Kutools > Mae delweddau, gweler y screenshot:

mewnosodwch doc delweddau gydag enw ffeil 3

2. Yn y popped allan Mewnosod Lluniau blwch deialog, gwnewch y gweithrediadau isod:

  • (1.) Cliciwch Ychwanegu Ffeiliau or Ychwanegu Ffolder botwm i ddewis y delweddau rydych chi am eu mewnosod;
  • (2.) Yna gwirio Mewnosod llwybr ffeil pob llun fel pennawd opsiwn ar waelod chwith y blwch deialog;
  • (3.) Ac yna cliciwch Mewnosod botwm.

mewnosodwch doc delweddau gydag enw ffeil 4

3. Ar ôl mewnosod y delweddau, fe welwch lwybr ffeil pob llun ac enw yn cael ei fewnosod hefyd, gweler y screenshot:

mewnosodwch doc delweddau gydag enw ffeil 5

Cliciwch i lawrlwytho Kutools ar gyfer Word a threial am ddim nawr!

Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

Plymiwch i mewn i'r nodweddion a amlygwyd isod neu cliciwch yma i archwilio pŵer llawn Kutools ar gyfer Word.

📘 Meistrolaeth Dogfen: Tudalennau Hollti  /  Uno Dogfennau  /  Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/XLSX)  /  Trosi swp i PDF  /  Allforio Tudalennau fel Delweddau  /  Argraffu Ffeiliau Lluosog ar unwaith ...

Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog   /  Newid Maint Pob Llun   /  Trawsosod Rhesi Bwrdd a Cholofnau  /  Trosi Tabl i Testun ...

🧹 Ymdrech GlânSweap i ffwrdd Mannau Ychwanegol  /  Toriadau Adran  /   Pob Pennawd  /  Blychau Testun  /  hypergysylltiadau  /  I gael rhagor o offer tynnu, ewch i'n Grŵp Dileu

Mewnosodiadau Creadigol: Mewnosod Mil o Wahanwyr  /  Blychau Gwirio  /  Botymau Radio  /  Cod QR  /  Cod Bar  /  Tabl Llinell Lletraws  /  Pennawd Hafaliad  /  Capsiwn Delwedd  /  Pennawd Tabl  /  Lluniau Lluosog  /  Darganfyddwch fwy yn ein Insert Group

🔍 Detholiadau Manwl: Nodwch dudalennau penodol  /  tablau  /  siapiau  /  paragraffau pennawd  /  Llywiwch yn rhwydd gan ddefnyddio ein Grŵp Dewis

Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad  /  auto-mewnosod testun ailadroddus  /  toglo'n ddi-dor rhwng ffenestri dogfennau  /  11 Offer Trosi ...

Trawsnewidiwch eich tasgau Word gyda Kutools. 👉 Dadlwythwch gyda threial 30 diwrnod Nawr 🚀.

 
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