Jak vložit více obrázků s názvem souboru do dokumentu Word?
V dokumentu Word můžete pomocí funkce Vložit rychle vložit více obrázků najednou. Někdy však musíte při vkládání obrázků vložit cestu a názvy souborů jako titulek. Jak jste mohli tento úkol vyřešit v souboru Word?
Vložte více obrázků s názvem souboru pomocí kódu VBA
Vložte více obrázků s názvem souboru pomocí Kutools pro Word
Vložte více obrázků s názvem souboru pomocí kódu VBA
Následující kód VBA vám pomůže při vkládání obrázků vložit cestu a název souboru jako titulek, postupujte takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. A pak klikněte Vložit > Modul, zkopírujte a vložte níže uvedený kód do otevřeného prázdného modulu:
Kód VBA: Vložte více obrázků s názvem souboru:
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, zobrazí se okno Procházet, vyberte složku obsahující obrázky, které chcete vložit, viz screenshot:
4. Pak klikněte na tlačítko OK Tlačítko, všechny obrázky ve vybrané složce byly vloženy do dokumentu Word a cesta a název souboru jsou vloženy jako titulek, který dobře, viz screenshot:
Vložte více obrázků s názvem souboru pomocí Kutools pro Word
Pokud máte Kutools pro Word, S jeho snímky Díky této funkci můžete do dokumentu aplikace Word rychle vložit více obrázků s cestou a názvem souboru.
Kutools pro Word : s více než 100 užitečnými doplňky Wordu, můžete to vyzkoušet bez omezení za 60 dní. |
Po instalaci Kutools pro Word, udělejte prosím toto:
1. klikněte Kutools > snímky, viz screenshot:
2. Ve vyskočené Vložit obrázky V dialogovém okně proveďte následující operace:
- (1.) Klikněte Přidat soubory or Přidat složku tlačítko pro výběr obrázků, které chcete vložit;
- (2.) Poté zkontrolujte Vložte cestu k souboru každého obrázku jako titulek možnost v levé dolní části dialogového okna;
- (3.) A pak klikněte Vložit .
3. Po vložení obrázků uvidíte cestu ke každému obrázku a název je také vložen, viz screenshot:
Klikněte a stáhněte si Kutools pro Word a bezplatnou zkušební verzi hned teď!
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF / Exportujte stránky jako obrázky / Tisk více souborů najednou...
✏ Úprava obsahu: Dávkové hledání a nahrazení přes více souborů / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...
🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Tabulka diagonálních čar / Titulek rovnice / Titulek obrázku / Titulek tabulky / Více obrázků / Objevte více v Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ Vylepšení hvězd: Navigujte rychle na libovolné místo / automatické vkládání opakujícího se textu / plynule přepínat mezi okny dokumentů / 11 Konverzní nástroje...