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:
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 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:
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 ar gyfer Word a threial am ddim nawr!
Offer Cynhyrchiant Swyddfa Gorau
Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!
🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys / Ailysgrifennu Testun / Crynhoi Dogfennau / Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word
📘 Meistrolaeth Dogfen: Tudalennau Hollti / Uno Dogfennau / Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...) / 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ân: swap i ffwrdd Mannau Ychwanegol / Toriadau Adran / Pob Pennawd / Blychau Testun / hypergysylltiadau / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...
➕ 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 / Darganfod mwy yn y Mewnosod Grŵp...
🔍 Detholiadau Manwl: pinbwynt tudalennau penodol / tablau / siapiau / paragraffau pennawd / Gwella llywio gyda mwy Dewiswch nodweddion...
⭐ Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad / auto-mewnosod testun ailadroddus / toglo'n ddi-dor rhwng ffenestri dogfennau / 11 Offer Trosi...
