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

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 for Word a threial am ddim nawr!


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% 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 ...
sylwadau (6)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
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?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pa linell o god fyddech chi'n ei newid a sut i gael y llwybr ffeil wedi'i ysgrifennu cyn y llun, sef y capsiwn (enw ffeil) uchod yn hytrach nag isod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gyda Detholiad
.Text = xFfeil
.InlineShapes.AddPicture xPath & "\" &xFile, Gau, Gwir
.InsertAfter vbCrLf
.MoveDown wdLine

Diwedd Gyda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gorfod ychwanegu hwn .MoveDown wdLine ar ôl .Text=xFile
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Waw mae hyn yn wych! Dim ond enw'r ffeil oedd ei angen arnaf, felly dilëais "xPath &"\" &" o'r llinell .Text ac fe weithiodd hynny'n berffaith. Diolch am hyn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae problem yn digwydd pan fydd enw'r ffeil i'w hychwanegu yn fwy na 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
llun 5...
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir