Kako v Wordov dokument vstaviti več slik z imenom datoteke?
V dokumentu Word lahko s funkcijo Vstavi hitro vstavite več slik hkrati. Toda včasih morate pri vstavljanju slik vstaviti pot do datoteke in imena kot napis. Kako ste se lahko spopadli s to nalogo v Wordovi datoteki?
S kodo VBA vstavite več slik z imenom datoteke
Z Kutools for Word vstavite več slik z imenom datoteke
S kodo VBA vstavite več slik z imenom datoteke
Naslednja koda VBA vam lahko pomaga pri vstavljanju poti in imena datoteke kot napis pri vstavljanju slik. Naredite to:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:
Koda VBA: Vstavite več slik z imenom datoteke:
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. Nato pritisnite F5 za zagon te kode se prikaže okno Brskaj, izberite mapo, ki vsebuje slike, ki jih želite vstaviti, glejte sliko zaslona:
4. Nato kliknite OK , vse slike v izbrani mapi so bile vstavljene v Wordov dokument, pot do datoteke pa je vstavljena kot napis, dobro, glej posnetek zaslona:
Z Kutools for Word vstavite več slik z imenom datoteke
Če imate Kutools za Word, Z njegovim slike funkcija, lahko v dokument Word takoj vstavite več slik s potjo do datoteke in imenom.
Kutools za Word : z več kot 100 priročnimi dodatki za Word, ki jih lahko brezplačno preizkusite v 60 dneh. |
Po namestitvi Kutools za Word, naredite tako:
1. klik Kutools > slike, glej posnetek zaslona:
2. V izskočil Vstavi slike pogovorno okno, naredite naslednje:
- (1.) Kliknite Dodaj datoteke or dodaj mapo gumb, da izberete slike, ki jih želite vstaviti;
- (2.) Nato preverite Vstavi pot datoteke do vsake slike kot napis možnost na levem dnu pogovornega okna;
- (3.) In nato kliknite Vstavi gumb.
3. Po vstavitvi slik boste videli pot do datoteke vsake slike in tudi ime, glejte posnetek zaslona:
Kliknite za prenos Kutools za Word in brezplačno preskusno različico zdaj!
Najboljša pisarniška orodja za produktivnost
Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!
🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino / Prepiši besedilo / Povzemite dokumente / Povprašajte za informacije na podlagi dokumenta, vse v Wordu
📘 Obvladovanje dokumentov: Razdeljene strani / Spoji dokumente / Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...) / Paketna pretvorba v PDF / Izvozi strani kot slike / Natisnite več datotek hkrati...
✏ Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek / Spremeni velikost vseh slik / Prenos vrstic in stolpcev tabele / Pretvori tabelo v besedilo...
🧹 Čiščenje brez napora: Pometite stran Dodatni prostori / Prelomi oddelkov / Vse glave / Besedilna polja / Hiperpovezave / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...
➕ Ustvarjalni vložki: Vstavi Tisoč ločila / Potrditvena polja / Radijske tipke / QR koda / Črtna koda / Tabela z diagonalno črto / Naslov enačbe / Opis slike / Naslov tabele / Več slik / Odkrijte več v Vstavi skupino...
???? Natančne izbire: Natančna točka določene strani / mize / Oblike / odstavki naslova / Izboljšajte navigacijo z več Izberite funkcije...
⭐ Izboljšave zvezdic: Hitra navigacija do katere koli lokacije / samodejno vstavljanje ponavljajočega se besedila / brez težav preklapljate med okni dokumentov / 11 Orodja za pretvorbo...