Jak vložit více obrázků s názvem souboru do dokumentu aplikace Word?

Do dokumentu aplikace Word můžete rychle vložit více obrázků najednou pomocí funkce Vložit. Mohou však nastat situace, kdy budete muset při vkládání obrázků zahrnout cestu k souboru a názvy souborů jako titulky. To může být užitečné zejména pro dokumentaci, zprávy nebo prezentace, kde je důležité odkazovat na zdroj obrazu.

V tomto tutoriálu vás provedeme kroky, jak efektivně vložit více obrázků spolu s jejich cestami k souborům a názvy souborů jako titulky do dokumentu aplikace Word, což vám pomůže efektivněji spravovat obrázky.

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.

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) Klepněte na tlačítko 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:

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Funkce AI Kutools: Generovat obsah / Přepsat text / Dokument Q&A / Získejte rychlé odpovědi / Překládat dokumenty / Polský dokument (zachovat formát)...

📘 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...

✏ Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / 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 / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

⭐ Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????

Stažení zdarma     Kup nyní     Další informace o Kutools pro Word

 

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - 100+ nástrojů pro Word

• 🤖 Funkce AI Kutools: Generovat, Přepsat, Shrnout, přeložit Dokumenty / Získejte rychlé odpovědi / Polský dokument (zachovat formát)
• 📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Dávkový převod do PDF
• ✏ Úprava obsahu: Dávkové hledání a nahrazení / Změnit velikost všech obrázků
• 🧹 Čištění bez námahy: Odstraňte další mezery / Odstraňte konce sekcí
• ➕ Kreativní vložky: Vložte tisíce oddělovačů / Vložit zaškrtávací políčka / Vytvářejte QR kódy

Stažení zdarma Kup nyní Zjistěte více o Kutools