Cum se inserează mai multe imagini cu nume de fișier în documentul Word?
În documentul Word, puteți insera rapid mai multe imagini simultan utilizând funcția Inserare. Dar, uneori, trebuie să inserați calea fișierului și numele ca subtitrare atunci când introduceți imaginile. Cum ați putea face față acestei sarcini în fișierul Word?
Introduceți mai multe imagini cu numele fișierului utilizând codul VBA
Introduceți mai multe imagini cu nume de fișier utilizând Kutools pentru Word
Introduceți mai multe imagini cu numele fișierului utilizând codul VBA
Următorul cod VBA vă poate ajuta să inserați calea și numele fișierului ca subtitrare la inserarea imaginilor, vă rugăm să faceți acest lucru:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis:
Cod VBA: introduceți mai multe imagini cu numele fișierului:
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. Apoi apăsați F5 tasta pentru a rula acest cod, este afișată o fereastră Răsfoire, vă rugăm să selectați folderul care conține imaginile pe care doriți să le inserați, vedeți captura de ecran:
4. Apoi apasa OK butonul, toate imaginile din folderul selectat au fost inserate în documentul Word, iar calea și numele fișierului sunt inserate ca subtitrare și vedem captura de ecran:
Introduceți mai multe imagini cu nume de fișier utilizând Kutools pentru Word
Dacă aveţi Kutools pentru Cuvânt, Cu său imagini caracteristică, puteți insera rapid mai multe imagini cu calea și numele fișierului în documentul Word imediat.
Kutools pentru Cuvânt : cu mai mult de 100 de suplimente Word la îndemână, încercare gratuită fără limitări în 60 de zile. |
După instalare Kutools pentru Cuvânt, vă rugăm să faceți acest lucru:
1. Clic Kutools > imagini, vezi captura de ecran:
2. În pop-out Inserați imagini caseta de dialog, vă rugăm să efectuați operațiunile de mai jos:
- (1.) Faceți clic pe Adăugați fișiere or Adaugă Folder buton pentru a selecta imaginile pe care doriți să le inserați;
- (2.) Apoi verificați Introduceți calea fișierului fiecărei imagini ca legendă opțiune din partea stângă jos a casetei de dialog;
- (3.) Și apoi faceți clic pe Insera butonul.
3. După inserarea imaginilor, veți vedea calea fișierului fiecărei imagini și se introduce și numele, vedeți captura de ecran:
Faceți clic pentru a descărca Kutools pentru Word și încercarea gratuită acum!
Cele mai bune instrumente de productivitate de birou
Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!
🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut / Rescrie textul / Rezumat documente / Solicitați informații pe baza Documentului, toate în Cuvânt
📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF / Exportați paginile ca imagini / Imprimați mai multe fișiere simultan...
✏ Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...
🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Toate anteturile / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la Eliminați grupul...
➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Tabel cu linii diagonale / Legenda ecuației / Image Caption / Legenda tabelului / Imagini multiple / Descoperiți mai multe în Inserați grupul...
???? Selectii de precizie: Repera cu precizie Pagini specifice / Mese / Forme / Paragrafe de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...
⭐ Îmbunătățiri de stele: Navigați la orice locație / Inserarea automată a textului repetitiv / Comutați între ferestrele documentelor / 11 Instrumente de conversie...