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

Mewnosod lluniau lluosog gydag enw ffeil trwy ddefnyddio Kutools for 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:

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:

Mewnosod lluniau lluosog gydag enw ffeil trwy ddefnyddio Kutools for Word

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

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

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

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.

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

Cliciwch i lawrlwytho Kutools for Word a threial am ddim nawr!

---

Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools For Word - Mwy na 100 o Nodweddion Uwch ar gyfer Word, Arbedwch Eich 50% o Amser

• Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
• Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
• Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
• Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
• Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...

Darllenwch fwy Lawrlwytho Nawr prynu