Note: The other languages of the website are Google-translated. Back to English
English English

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:

doc vložte obrázky s názvem souboru 1

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:

doc vložte obrázky s názvem souboru 2


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:

doc vložte obrázky s názvem souboru 3

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 .

doc vložte obrázky s názvem souboru 4

3. Po vložení obrázků uvidíte cestu ke každému obrázku a název je také vložen, viz screenshot:

doc vložte obrázky s názvem souboru 5

Klikněte a stáhněte si Kutools pro Word a bezplatnou zkušební verzi hned teď!


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (6)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
buenas noches amigo me ha servido mucho su informationón sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
Tento komentář byl moderátorem webu minimalizován
Který řádek kódu byste změnili a jak mít cestu k souboru napsanou před obrázkem, neboli titulek (název souboru) je spíše nahoře než dole.
Tento komentář byl moderátorem webu minimalizován
S výběrem
.Text = xSoubor
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.Posunout dolů wdLine

Konec s
Tento komentář byl moderátorem webu minimalizován
Musíte přidat tento .MoveDown wdLine za .Text=xFile
Tento komentář byl moderátorem webu minimalizován
Páni, to je skvělé! Potřeboval jsem pouze název souboru, takže jsem z řádku .Text smazal "xPath & "\" & a fungovalo to perfektně. Díky za to!
Tento komentář byl moderátorem webu minimalizován
Problém nastane, když název souboru, který má být přidán, překročí 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
obrázek 5...
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění