Przejdź do głównej zawartości

Jak wstawić wiele zdjęć z nazwą pliku w dokumencie programu Word?

W dokumencie programu Word można szybko wstawić wiele obrazów naraz, korzystając z funkcji Wstaw. Ale czasami trzeba wstawić ścieżkę pliku i nazwy jako podpis podczas wstawiania obrazów. Jak poradzisz sobie z tym zadaniem w pliku Word?

Wstaw wiele zdjęć z nazwą pliku za pomocą kodu VBA

Wstaw wiele zdjęć z nazwą pliku za pomocą Kutools for Word


Wstaw wiele zdjęć z nazwą pliku za pomocą kodu VBA

Poniższy kod VBA może pomóc wstawić ścieżkę do pliku i nazwę jako podpis podczas wstawiania obrazów, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. A następnie kliknij wstawka > Modułskopiuj i wklej poniższy kod do otwartego pustego modułu:

Kod VBA: Wstaw wiele zdjęć z nazwą pliku:

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. Następnie naciśnij F5 Aby uruchomić ten kod, zostanie wyświetlone okno przeglądania, wybierz folder zawierający obrazy, które chcesz wstawić, zobacz zrzut ekranu:

doc wstaw obrazy z nazwą pliku 1

4. Następnie kliknij OK przycisk, wszystkie obrazy w wybranym folderze zostały wstawione do dokumentu Worda, a ścieżka pliku i nazwa są wstawione jako podpis, który dobrze, patrz zrzut ekranu:

doc wstaw obrazy z nazwą pliku 2


Wstaw wiele zdjęć z nazwą pliku za pomocą Kutools for Word

Jeśli Kutools dla Worda, Z siedzibą w Obrazy funkcja, możesz szybko wstawić wiele obrazów ze ścieżką i nazwą pliku do dokumentu programu Word.

Kutools dla Worda : z ponad 100 przydatnymi dodatkami do Worda, które można wypróbować bezpłatnie bez ograniczeń przez 60 dni. 

Po zainstalowaniu Kutools dla Worda, zrób tak:

1. Kliknij Kutools > Obrazyzobacz zrzut ekranu:

doc wstaw obrazy z nazwą pliku 3

2. W wyskoczył Wstaw zdjęcia w oknie dialogowym, wykonaj poniższe czynności:

  • (1.) Kliknij Dodaj pliki or Dodaj folder przycisk, aby wybrać obrazy, które chcesz wstawić;
  • (2.) Następnie sprawdź Wstaw ścieżkę do każdego zdjęcia jako podpis opcja w lewym dolnym rogu okna dialogowego;
  • (3.) A następnie kliknij wstawka przycisk.

doc wstaw obrazy z nazwą pliku 4

3. Po wstawieniu obrazów zobaczysz ścieżkę do pliku każdego obrazu i wstawioną nazwę, patrz zrzut ekranu:

doc wstaw obrazy z nazwą pliku 5

Kliknij, aby pobrać Kutools for Word i bezpłatną wersję próbną już teraz!

Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

Zapoznaj się z wyróżnionymi funkcjami poniżej lub kliknij tutaj, aby poznać pełną moc Kutools for Word.

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/XLSX)  /  Wsadowa konwersja do formatu PDF  /  Eksportuj strony jako obrazy  /  Drukuj wiele plików jednocześnie ...

Edycja treści: Znajdź i zamień partii w wielu plikach   /  Zmień rozmiar wszystkich zdjęć   /  Transponuj wiersze i kolumny tabeli  /  Konwertuj tabelę na tekst ...

🧹 Łatwe czyszczenieWymieć Dodatkowe przestrzenie  /  Podziały sekcji  /   Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  /  Aby uzyskać więcej narzędzi do usuwania, przejdź do naszej grupy usuwania

Kreatywne wstawki: wstawka Tysiące separatorów  /  Pola wyboru  /  Przyciski Radio  /  Kod QR  /  kod kreskowy  /  Tabela linii ukośnych  /  Podpis równania  /  Tytuł Zdjęcia  /  Podpis tabeli  /  Wiele zdjęć  /  Odkryj więcej w naszej grupie wkładek

🔍 Precyzyjne wybory: Wskaż konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  /  Nawiguj z łatwością, korzystając z naszej grupy Select

Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji  /  automatyczne wstawianie powtarzającego się tekstu  /  płynnie przełączaj się pomiędzy oknami dokumentów  /  11 Narzędzia konwersji ...

Przekształć swoje zadania Worda za pomocą Kutools. 👉 Pobierz teraz z 30-dniową wersją próbną .

 
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
VBA CODE IS VERY USEFULLY MY DATA VALIDATE IMAGES SHARING.
This comment was minimized by the moderator on the site
How can I decrease the overall size of the photo so there are multiple per page?
This comment was minimized by the moderator on the site
Is there a way to insert each picture and file name per page? Sometimes if one picture is too big the file name will then go to the next page or if picture is too small the next picture will be together in one page instead on the next page
This comment was minimized by the moderator on the site
Hello, Rizza,
To insert each picture and file name per page, please apply the following vba code:
Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath As String, xFile As String
    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
                    
                    ' Add the picture
                    Selection.InlineShapes.AddPicture xPath & "\" & xFile, False, True
                    Selection.TypeParagraph
                    
                    ' Add the file path below the picture
                    Selection.TypeText xPath & "\" & xFile
                    Selection.TypeParagraph
                    
                    ' Move to the next page
                    Selection.InsertBreak Type:=wdPageBreak
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub


Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
A problem occurs when the file name to be added exceeds 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
pic5...
This comment was minimized by the moderator on the site
change the file name to 01, 02, 03 and it will work
This comment was minimized by the moderator on the site
Wow this is great! I only needed the file name, so I deleted "xPath & "\" &" from the .Text line and that worked perfectly. Thanks for this!
This comment was minimized by the moderator on the site
Which line of code would you change and how to have the file path written before the picture, aka the caption (filename) is above rather than below.
This comment was minimized by the moderator on the site
With Selection
.Text = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.MoveDown wdLine

End With
This comment was minimized by the moderator on the site
Have to add this .MoveDown wdLine after .Text=xFile
This comment was minimized by the moderator on the site
buenas noches amigo me ha servido mucho su información sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations